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SUMMARY 

PLANNER is a language for proving theorems and manipulating 
models in a robot. The language is built out of a number of 
problem-solving primitives together with a hierarchical control 
structure. Statements can be asserted and perhaps later withdrawn 
as the state of the world changes, conclusions can be drawn from 
these various changes in state. Goals can be established and dis- 
missed when they are satisfied. The deductive system of PLANNER if 
subordinate to the hierarchical control structure in order to make 
the language efficient. The use of a general-purpose matching lan- 
guage makes the deductive system more powerful. The language is 
being applied to solve problems faced by a robot and as a semantic 
base for English. 
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Dedication 



This paper Is dedicated 
to the Ideas embodied In the language 

LISP 
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Note to the Reader 



This paper Is organized In what purports to he a logical 
systematic fashion. The organization makes It difficult to gpt 
a oulck overview. The following guide Is provided for those 
readers who are not Interested In reading the whole pap*r. 
Chapter 1 Is a hack. Chapter 2 gives the eolstemolog lea 1 
foundations for our approach to problem solving. Chapter 5 Is a 
discursive overview of the rest of the thesis using examples of 
some features of the problem solving language PLANNEP, Many of 
the important Ideas In the thesis are touched on some where In 
the chapter. In chapter U we find a detailed explanation of the 
structural pattern ratchlng language MATCHLESS. Readers who are 
only peripherally Interested In pattern matching need read only 
sections U.l, l* f 2, k,l, and h.l». Chapter 5 begins the 
systematic explanation of PLANNER. It Introduces the 
primitives, data structure, and control structure of the 
language. In contrast to the quant If Icat lona I calculus, the 
semantics of PLANNEP are expressed In terms of properties of 
procedures written In the formalism. In chapter 7 we explain 
how properties of PLANNER procedures can be expressed and proved 
In the formalism Itself. Also we attack the problem of how tt 
Is possible to teach a problem solver new knowledge. 



tfhat Achilles Said To The Tortoise 
Lewis Carroll 



Achilles had overtaken the Tortoise, and had seated himself comfortably 
on its back, 

"So you've got to the end of our race-course? said the Tortoise. liven 
though it does consist of an infinite series of distances? I thought some 
wiseacre or other had proved that the thing couldn't be done?" 

It can be done, said Achilles. It has been done! Solvltur ambulanUo. 
You see the distances were constantly diminishing: and so—' 

But if they had been constantly Increasing? the Tortoise Interrupted* 
"Hot* then?" 

then I shouldn't Ve here, Achilles modestly replied; and you would 
have got several times round the world, by this time! 

"You flatter me — flatten, I mean, said the Tortoise; For you are a 
heavy weight, and no mistake! Well now, would you like to hear of a race-course, 
that most people fancy they can get to the end of in two or three steps, while 
it really consists of an infinite number of distances, each one longer than the 
previous one? 

"Very much Indeed! said the Grecian warrior, as he drew froa his helmet 
(few Grecian warriors possessed pockets in those days) an enormous note-book and 
a pencil- "Proceed! And speak slowly, please! Short-hand Isn't Invented yet!" 

"That beautiful First Proposition of Euclid! the Tortoise muraured 
dreamily. "Tou admire Euclid?" 
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Passionately! So far, at least, as one can admire a treatise tnat *on't 
be published for soae centuries to come! 

"Veil, now, let's take a little bit of the argument in tnat iirst 
Proposition— Just two steps, and the conclusion drawn from tnes. Madly enter 
them In your note-book. And, In order to refer to them conveniently, let's calx 
them A, B, and Z: 

(A) Things that are equal to the saae are equal to each other. 

(B) The uo sides of this Triangle are things that are equal to tne 
saae. 

(Z) The two sides of this Triangle are equal to each other. 

Readers of Euclid will grant, I suppose, that Z follows logically from 
A and B, so that any one who accepts A and E as true, must accept Z as true?" 

"Undoubtedly! The youngest child In a High School — as soon as High 
Schools are Invented, which will not be till some two thousand years later — will 
grant that." 

"And If soae reader had not yet accepted A and B as true, he might still 
accept the Sequence as a valid one, I suppose?" 

"Ho doubt such a reader might exist* He Bight say 'I accept as true the 
Hypothetical Proposition that. If A and fl be true, Z aust be true; but I dont 
accept A and 3 as true.' Such a reader would do wisely in abandoning Euclid, 
and taking to football." 

"And sight there not also be some reader wno would say 'I accept A and 
3 as true, but I don't accept the Hypothetical*?* 

"Certainly there might, de, also, had better ta*e to football." 

"And neither of these readers, the Tortoise continued, "is as yet under 
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any logical necessity to accept 2 as true?" 
Quite so, Achilles assented. 

Well, now, I want you to consider me as a reader of the second kind, 
and to force M f logically, Co accept 2 as true." 

"A tortoise playing football would be—" Achilles was beginning. 

"—an anomaly, of course," the Tortoise hastily interrupt*!, "dont't 
wander from the point. Let's have Z first, and football afterwards!" 

Vi to force you to accept 2, am I?" Achilles said musingly. "And your 
present position Is that you accept A and B, but you dont accept the 
Hypothetical—" 

"Let's call it C," said the Tortoise. 

— but you dont accept: 

(C) If A and B are true, 2 must be true/ 

"That is my present poslton," said the Tortoise. 
"Then I must ask you to accept C." 
I'll do so, said the Tortoise, as soon as you've entered it la that 
note-book of yours, lihat else have you cot in it?" 

Only a few Memoranda, said Achilles, nervously fluttering tne leaves: 
"a few memoranda of— of the battles in which I haTe distinguished 
myself!" 

Plenty of blank leaves, I seel" the Tortoise cheerily remarked* "He 
shall need them all!" (Achilles shuddered.) "How write as I dictate: 

tAJ Things that are equal to the same are equal each other. 

{B) The two sides or this triangle are things that are equal to the 



mo* 

{C) If A and & are true, Z aust be true. 

(2) The two sides of this Triangle are equal to each other 
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"You should call It JJ f not Z," said Achilles. "It coaas next to the 
other three. If you accept A and ii and C, you oust accept Z*" 
And why aust 1? 

"Because it follows logically from them. If A and & and C are true, Z 
must be true. You don't dispute that, I imagine?" 

If A and B and C are true, Z mist he true," the Tortoise thoughtfully 
repeated. "That's another Hypothetical isn't it? And, if I failed to see its 
truth, 1 night accept A and 5 and C, and still not accept Z, nigbta't 1?" 

*You might,** the candid hero admitted; "though such obtuseness would 
cerwinly In phenomenal, still, the "eot U po&sl&U* S« I tust UK you \o 
grant one aore Hypothetical." 

"Very good. I'm quite willing to grant Z, as soon as you've written it 
down. We will call it 

ID) If A and a and C are true, Z aust be true. 

"Have you entered that in your note-book?" 

"I have? Achilles joyfully exclaimed, as he ran the pencil Into its 
sheath. "And at last we've got to the end of this Ideal race-course! So* that 
you accept A ana B and C and D, of course you accept Z. 

Do I?" said the Tortoise innocently. "Let's make that quite clear. I 
accept A and 5 and C and D. Suppose I still refuse to accept Z?" 

"Then Logic would take you by the throat, and force you to do It!" 



Achilles triumphantly replUd. "Logic vould toll you can't neip yourself, No- 
tnat yoU'Te accepted A and E and C and D, you must accept l\* So you'?* no 
choice, you see. 

Whatever Logic U good enough to tell tae is worth writing down,' 4 said 
the Tortoise, **So enter It in your book, please. We will call It 

(2) If A and B and C and D are true, Z must oe irua, 

"Until I'?e granted that, of course, I needn't grant Z. So it's quite b 
necessary step, you see? 

1 see, saia Achillea; and there was a touch of sadness in his tone. 



2. The Stnjcturiil i*ounaations 01 Problem oolving 



beveral lunaamental questions must be facea oy any 
rounoation lor problem solving. A foundation lor problem 
solving must speciry a goal-orientea formalism in which problems 
can be statea. furthermore there must be a formalism 3or 
specifying the allowable methods 01 solution of problems- As 
part or the . ue unltion 01 Lhe formalisms the lo Hawing elements 
must be aefineua the auta structure, the control structure, and 
tiie primitive procedures. The proolem or what are allowable 
aata structures for facts about the world imneaiately arises. A 

founoatlon for problem solving must coniront the problem ox 
changes How can account be taken 01 the changing situation in 
the worlo? what are gooa ways to express problem solution 
methods ana how can plans lor the solution of problems be 
formulatea? How can new problem solving proceaures be 
synthesized out of goal orientea language? nhat properties of 
Its proceaures will a problem solver be able to Know and how 
will they oe established? All of the above questions must be 
adjressod oy a foundation lor problem solving. 

he shall propose a aounuation lor problem solving in 
wnich a xonu 11 sri callea PLANNfcK will play a central role. If 
it is rlexiole enough, the same lormalism can provide tne basic 
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idciiities for a foundation lor problem solving. HLANNtH Is a 
uru jiao collection of problem solving primitives for proving 
theorems ana manipulating mouels la a robot, «e have trieo to 
matte this collection complete in the sense that It shouio be 
possible to online any aunaamental problem solving process in 
terms of the primitives in a natural and elegant (banner. Ihe 
primitives are designed to De tieo together by a hltHARCttlUAL 
CiWThOL SlRUCTUtffc which is dl iterant irom the control structure 
of recursive suoroutine calls. Roughly speaking in hlerarcnical 
control structure the hierarchy of the previous calls is 
preserved so that a process can back up a previous state il it 

so desires, hierarchical control makes PLANNER very convenient 
for constructing elaborate hypothetical structures. It Is In 
the above sense that we shall speak 01 PLANNEH as a language. 
FLANKER is a high level t nonprocedural t goal-oriented language 

in which one can spec! ly to a large oegree what one wants aone 
rath«r than how to do it. Many of the primitives in PLANNtfl are 
concerned with manipulating a data base by speci lying the 
operations to be performed. Many of the primitives have been 
developed as extensions to the language when we have sound 
problems that coulu not otherwise be solved in a natural way. 
Of course the trick is to incorporate the new primitive as a 
genuine extension 01 wiae applicability. Others have suggesteo 
themselves as adjuncts in oroer to obtain uselul closeure 
porperties In the language. We would oe grateful to any reaaer 
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who coula suggest problems that would seem to require Jurther 
extension* or modifications to the language. The language will 
ue explained by giving an over-simpliried picture and tnen 
attempting to correct any misapprehensions that the reader might 
have gathered ironi tne rough outline* 

One basic idea oehlna the language is a duality that we 
Una oetween certain imperative ana ueclarative sentences, ror 
example consider the statement (implies A b). As it stanus the 
statement is a perfectly gooa declarative statement- it also 
has certain imperative uses tor PLANNEtf. For example it says 
that we shoulo set up a proceuure which will note whether A is 
ever asserteo ana if so to consider whether b should then oe 
asserted. Furthermore it says that we shoulo set up a 
procedure that will watch to see if it ever is our goal to try 
to deduce b ana ii so whether it is wise to matte a suogoal to 
deduce A* exactly the same observations can oe maoe about the 
contrapositive of the statement (implies A BJ which is (implies 
(not b) (not a)). Statements with such things as universal 
quantifiers, con Junctions, disjunctions, etc. also have both 
oeclaratlve ano Imperative uses* PLANNER theorems are being used 
as imperatives when they are being executed and as declaratives 
when useo as oata. 

Our work on PLANNbR has been an investigation in 
PROCEDURAL fcPlSTLAiGLOGY, the study of how knowledge can be 
e*oeuaed in procedures. The PRINCIPLE OF PROCEDUkAL tMbECUINC 
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is that intellectual structures can be analyzed through their 

procedural analogues, he will show have the lolloping all have 
procedural analogues* 

oescriptions 
recommendations 

theorems 

proofs 

grammars 

moaels ol programs 

patterns 

Descriptions have procedural analogues in the torm 01 PLANNER 
proceajres which recognize the objects descrioed. Theorems in 
the predicate calculus correspono to PLANNER theorems jor mating 
deductions. Mathematical proois correspond to plans in PLANNfcW 
tor generating a valla chain 01 deductions- The PrtOURAMMAri 
language 01 Terry hinograa provides a procedural analogue to 
ootain the Jtlno ol information that is supposed to oa supplied 
by trans formational grammars. Intricate patterns can oe 
sped Ilea in procedural pattern matching languages. Models 03 
programs are oeiined by procedures which state the relations 
that must holo between the varibles of the program as control 
passes through various points. 

hrom the above ooservat ions, we have constructed a 
language that permits ooth the imperative ana declarative 
aspects of statements to be easily manipulated. PLANNER uses a 
pattern-directed injormatlon retrieval system- hhen a statement 
Is asserted recommendations oetermine what conclusions will De 
drawn irom the assertions. Procedures can make recommendations 



a* to whicn theorems snoulu be used In trying to araw 
conclusions iroro an assertion, ana they can recommend the order 
in which the theorems should be applied. Goals can be created 
and automatically oismisseu when they are satisfied. Oojects 
can be found from schematic or partial descriptions. Provision 
is naae ror the lact that statements tnat were oncu true in a 
model may no longer be true at some later time ana that 
consequences must be drawn irom the tact that the state oi the 
model has changed. Assertions and goals created within a 
procedure can be dynamically protected against interference from 

other procedures. Froceaures written in the language are 
extenoaole in that they can make use oi new Knowledge whether 
it be primarily declarative or imperative in nature. Hypotheses 
can be established and later oischargeu. He woulu like to use 
HLANNEK to write a bloc* control language in which we could 
specify how blocks can be moved around by a robot. Then we 
could write a structure building language in which we could 
provide descriptions 01 structures (such as houses and bridges) 
and let PLANNER figure out how to bulla them. The logical 
deductive system used oy FLANNbR is subordinate to the 
hierarchical control structure of the language. HLANNcR 
theorems operate within a context consisting of return 
addresses, goals t assertions, bindings, ano local changes of 
state that have been mace to the global data base. Through the 
use oi this context we can guioe the computation and avoid doing 
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bdsically the same worfc over 6nd over again. t-or example v once 
we determine that we are working within a group (in the 
mathematical sense) we can restrict our attention to theorems 
lor wording on groups since we have direct control over what 
theorems will be used. PLANNtK has a sophisticated aeauctlve 
system in oroer to give us greater power over the Direction of 
the computation. In several respects the deouctive system is 
more power lui than the quantlf icatlonal calculus of order omega, 
f«e have tried to oesign a sophisticated deductive system 
together with an elaborate control structure so that lengthy 
computations can be carried out without blowing up* 0] course 
procedures written In PLANNER are not lnterlnsxcally efjiclent. 
A great oeal of thought ang effort *yst be put inot writing 
ef Hcient procedures. PLANNER does proviae some basic 
mechanisms and primitives in which to express problem solving 
procedures- The control structure can still be used when we 
limit ourselves to using resolution as the sole rule oj 
ini*rence. In general a uniform prool proceeds gives us very 
little control over how or when a theorem Is to be used* The 
problem Is one ol the level of the interpreter that we want to 
use. A olgital computer Dy itself will only interpret the 
hardware instructions o] the machine, *e can write a higher 
level interputer such as LISP that will interpret assignments 
and recurseive junction calls. At a still higher level we can 
write an interpreter such as MAICHL6SS which will interpret 



patterns. At the level oi PLANNEh we can Interpret assertions, 
Una statements, and goals* It goes without Saying that we can 
compile cooe for any oi the higher level interpeters so tndt it 
actually runs under a lower level interpreter. In general 
higher level interpreters have greater choice in the actions 
that they can take since instructions are phraseo more in terms 
of goals to be achlved rather than in terms 01 explicit 
elementary actions. The proolem tnat we lace Is to raise the 
level '-'3 the interpreter while at the same time keeping the 
actions tajcen by it unaer control. Because of its extreme 
hierarchical control and its ability to make use of new 
imperative as well as declarative knowieuge, it Is feasible to 
carry out very long chains oi inference in PLANNED. Examples oa 
some ol the klnas 01 statements that can oe made in the language 
are* 

Una the second smallest integer that is sum of its ^actors. 
Hick up all the rea cubes that are on top of blue cooes and 
put them In the yellow box. 

Assert that all the people in this room are olaer than Jack, 
^ind all the employees at MIT that are related to each other 

and give the relationship of each to the others. 

rte are concerned as to how a theorem prover can uni iy 
structural problem solving methods witn uoraain dependent 
algorithms anu data into a coherent problem solving process, by 
structural methods we mean those that are concerned with the 
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formal structure of the argument rather than with the semantics 
of its domain aepenaent content, examples 01 structural uiethoas 
are thd use at subgoals in PLANNER ana the consequences of the 
consequent heuristic. by the CONScQUEHCES Or 1ME CONScQUcNT 
heuristic* we mean that a problem solver shoulu Iook at the 
consequences 01 the goal that Is being attempted in order to get 
an iuea ol some o- the statements that coula be use ml in 
establishing or rejecting the goal, he need to discover more 
powerful structural methoas* PLANWEk is intenueo to proviue a 
computational basis tor expressing structural methods* One of 
tne fl^ost important ideas in PLANNErt is to bring some of the 
structural methous or problem solving out into the open where 

they can be analy2eo ana generalizea. There are a aew basic 
patterns ox looping ana recursion that are in constant use among 
programmers, Examples are the "lor" statement of MATCHLESS, the 
"fina* statement in PLANNER, and recursion on the car ana the 
car in LISP, The "fino" and "for 11 primitives are explained in 
the KATCHLfcSS ana PLANNER aocumentation. The patterns represent 
common structural methoas usea in programs* They specijy how 
commanas can be repeated lteratively and recursively. One of 
the main problems in getting computers to write programs is to 
use these structural patterns with the particular ooraain 
depenaent commanas that are avallaole. It is difficult to 
aeclue which 1] any of the basic patterns of recursion Is 
appropriate in any given problem. The problem ol syntesizlng 
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programs out or canned loops is lormally identical to the 
proolem of fincilng proois by waLhejiaticai Induction, lnaeed 
many proofs can be aruitfully consiaerecj to derine procedures 
which ore proved to have certain properties, he have approacheo 
the prooltidi ol constructing procedures out 01 goai orlenteu 
language from two Directions* Iho lirst is to use cannea ioops 
(such as the Una statement} where we assume a-priori the Kino 
01 control structure that is needed* The second approach is to 
try Lo abstract the proceaure from protocols ot its action in 
particular cases* 

The tasic or artificial intelligence is to program 
inanimate machines to perforin tasics that require intelligence- 
Over the past oecaae several ai lferent approaches toward A* 1* 
have aevelopeo. Although very pure forms oi these approaches 
will selaoffl oe met in practice, we find that it is useiul lor 
purposes oi discussion to consioer these conceptual extremes. 
One approach (called results moae oy S. Papert) has been to 
choose some spec! lie intellectual task that humans can perform 
with tacillty ana write a program to periorm it- Several very 
fine programs have been written iollowing this approach- une oj 
the iirst was the Logic Theorist which attempted to prove 
theorems in the propositional calculus using the ueductive 
system developed in nrincipia Mathmatlca. The Importance of the 
Logic Theorist is that it aeveloped a oooy of techniques which 
when cleaned up ana generalized have proved to be lunoamental to 
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furthering our understanding ol A. 1. The results moae approach 
offers the potentiality of maximum efficiency in solving 
particular classes of problems. On the other nana, there t>ave 
oeen a numoar oi programs written from the results mooa approach 
whlcr. nave not aovanceo our understanding although the programs 
acnUved slightly better results than hau been achieved beiore. 
Tnoso programs have been large, clumsy, brute force pieces ol 
machinery. There Is a clear danger that the results moae 
approach can degenerate Into trying to achieve a. I. via the 
"hairy Kludge a month plan". 

Another approach to A. 1. that has been prominent In the 
last decade is that of the uniform prooi procedure. Proponents 
01 the approach write programs which accept aeclaratlve 
descriptions of combinatorial problems and then attempt to solve 
them, in its most pure form the approach does not permit the 
machine to be given any information as to how It might soive its 
problems. The character table approach to A. I. is a 
modification of the uniform proceaure approach In which the 
program is also given a Unite state taDle of connections 
between goals and methods. The uniform procedure approach 
of lers a great deal of elegance ana a maximum of a certain Kind 
of generality. Current programs that Implement the uniform 
procedure approach su.ner from extreme ineiuciency. ne believe 
that the Inefficiency is Intrinsic In the approach. 

HLANNbh is not neccessarily general in the same sense 
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tnat a uni iorai proof proceoure 15 general. FLANNfclf is inLanueu 
to oe a natural computational basis lor metnous or solving 
prooieios in 6 oomain. A complete prooj procedure lor a 
qucantirJcatlonal calculus is general in the sense tnat if one 
can force the problem into the form oj the input language anJ 
are prepared to wait eons ij necessary then the computer is 
guaranteed to lino a solution if there is one. The approach 
taker* in FLANNttf is to subordinate the ueouctive system to an 
elaoorate hierarchical control structure which is domain 
independent. Proponents oi the uni lorm procedure approach are 
apt to say that PLANNEK "cheats" because through the use oi its 
hierarchical control structure, it is possible to tell the 
program how to to try solve Its problems. But surely, it Is to 
the credit of the program that it is able to accept new 
information ano make use ol it* A problem solver needs a high 
level language aor expressing problem solving methods even if 

the language is only useo by the problem solver to express its 
problem solving methoos to itself* FLANNfcK is useo both as the 
language in which proolems are poseo to the problem solver ano 
the language in which methods oi solution are formulated* 
PLANNER is not intenaea to oe a general solution to the problem 
oi linuing general methods ior reoucing the combinatorial search 
involved to solve a problem using an arbitrary set of axioms. 
It is intended to be a general formalism in which Knowledge in a 
uomain can oe combined and integrateu. Realistic problem 
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solving programs will neeo vast amounts or Knowledge, ne 
conslaer all methous oi solving problems to be legitimate, if a 
program snoulo happen to alreaay know the answer to the problem 
that it is asked to solve, then it is periectly reasonaole for 
the prooleji to be solved by table look-up. ne should use the 
criterion that the problem solving power 01 a program should 
Increase much jaster then in direct proportion to the number of 
things that it is told. The important factors in judging a 
program are its elegance, generality, ana eificlency. 
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3* Discursive Overview 

lhis chapter contains an explanation ol some of the 
ideas in HLANStrt in essay :omi. It is baseo on a .r~.it written 
by T. Ainograo aor the course 6.S4b. lj the reaaer woula ll*co 

to sue a more logically systematic presentation, he can consult 

the iUDsequent chapters. Thu easiest way to understand pLANNEh 

is to watch how It worxs* so in this chapter, we will present a 

few simple examples ano explain the use 01 some ol its most 

elementary lea tu res. 

hirst we will taice the most venerable of traditional 

oeductions* 

Turing is a human 
All huttahS are fallible 
so 

Turing is fallible. 

It is easy enough to see how this could be expressed In the 

usual logical notation ano hanalea by a uni loroi proof procedure. 

Instead, let us express it in one possible way to FLANNEH by 

saylngi 

{ASSfitaT (HUMAN TUhING)) 
(Dfci-INfc THkORfcJAl 

ICOhbtQUhNT (X) trALUbLb $?X) 
{COAL (HUMAN 5?X))J) 

function calls are enclosed between M l" ana "J". The 

proor would be generatua by asking FLANNfeR to evaluate the 

expressions 

(GOAL (hALLlbLE TURING)) 
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ft? iiuealately see several points, hirst, there are two 
ol iferent ways ol storing information. Simple assertions ar* 

stored in o aata base 01 assertions, while more complex 
benttnees containing quantifiers or logical connectives are 
expressea in the loroi oj theorems (although facilities exist jor 
storing them in stanuaro logical notation ana hanoling then* as 
In any other theorem prover if that is dosirea). 

Secona, one of the most important points about PLANNEk is 
that it is an evaiuator lor statements. It accepts input in the 
lorm ol expressions written in the PLANNER language, and 
evaluates them, producing a value ano side eajects. ASSEHl Is a 
function which, when evaluated, stores its argument in the data 
base ol assertions (which is hash^coaed in various ways to give 
the system efficient loox-up capabi ii tiesJ . UkFlNE puts a new 
theorem in the data oase. In this example we have oeiineo a 
tneorem of the CONSEQUENT type (we will see other types later). 
This states that if we ever want to establish a goal o] the form 
(FALLIBLE S?X) f we can oo this by accomplishing the goal (hlMAN 
WAJ, where X is a variable. The strange preux characters are 
part of PLANNtfr's pattern matching capabilities (which are 
extensive ano make use ol the pattern-matching language 
MATChLtSb. II we ask PLANNER to prove a goal ol the rorm (A X), 
tnere is no obvious way ol Knowing whether A and X are constants 
(like 1JK1NG and HUMAN in the example) or variables. LIbH 
solves this proolem by using the function QUOTb to inoicate 
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constants. In pattern matching this is Inconvenient and maices 
most patterns much bulkier ana more, aij 11 cult to read* Insteaa, 
KLANNtft uses the opposite convention — a constant is 
representee uy the atom Itself* while a variable Must oe 

inalcateu oy adding an appropriate prefix* This pre lix uilfers 
accoralng to the exact use of tne variable in the pattern* ^ut 
for the time being let us just accept $? as a prerix indicating 
a variable* The aelinition of the theorem indicates that it has 

one variable* X by the (A) following CONbbUUcNl. 

The thiro statement ijlustrates the Junction UUAL, whicn 
calls the HLANNEk interpreter to try to prove an assertion. 
This can function in several ways. 11 we hao askea HLANNEH to 

evaluate tuOAL (HUMAN TUNING)) It woulu have founo the requested 
assertion inwieaiately in the aata oase ana succeeaea (returning 

as its value some lnolcator that it haa succeeaea)* However, 
(rALLIBLh TURING) has not been asserted, so we must resort to 
tneorems to prove it. Later we will see that a GOAL statement 
can give PLANNED various kinas of aovlce on which theorems are 
applicable to the goal ana shoula be tried. For the moment, 
talce the default case* In which the evaiuator tries all theorems 
whose consequent is of a form which matches the goal. (i.e. a 
theorem with a consequent (SVZ TURING) would be triea, but one 
of the iora (HAPPY 5?Z) or (t-ALUBLL *?¥ *?Z) woulo not. 
Assertions can have an aroltrary list structure lor their iormat 
— they are not limited to two-member lists or three-i&ember 



list* as in these examples.) The theorem we have just Je lined 
would be found, ana in trying it f the match 01 the consequence 
to the goal woulo cause the variaoie s?X to oe Dound to the 
constant TURING. Therefore, the theorem sets up a new goal 
(HUMAN TUKlNo) ana this succeeds immeaiately since it Is in the 
oata base. In general, the success of a theorem will depend on 
evaluating a PLANNER program of aroitrary complexity* In this 
case it contains only a single GOAL statement, so its succeess 
Cduses the entire theorem to succeed, and the goal (HALLIoLE 
TUrflhG) is provea. 

Ihe following is the protocol of the evaluation* 
(GOAL (FALLIBLE TUHINGJi 

(PROVED? (fALLI&LE TURING)) 
hAIL 

fcNTtR THEGHtMl 

X BECOMES TURING 

iGOAL (HUMAN TUkINGJ) 

tPROVEUV (HUMAN TURING)) 
SUCCEED 

The way in which variables are bouna by matching is ol key 
importance to PLANNER . Consider the question Ms anything 
fallible?", or in logic (EXISTS V (J-ALLIbLE Y)). This could be 
expressed in PLANNER asi 

(THPROG (Y) (GOAL (FALLIBLE *?Y))> 

Notice that ThPROC (PLANNERS equivalent of a LISP PROG, 
complete with GO statements, tags, RETURN, etc) in this case it 
acts as an existential quantifier. It provides a binaing-place 
for the variable Y, but does not initialize it — it leaves it 
in a state particularly narkeo as unbouna. To answer the 



question, we ask FLANNnk to evaluate the entire TriFHCW 

expression aoove. To do this it starts Dy evaluating the GOAL 

expression, li-is searches the uata base for an assertion 01 the 

form (i-ALLIbLh 5VY) anu faiis* It then looks tor a theorem with 

a consequent of that joriii, ano finds the tneorem we uejineo 

eoova. Now when the theorem Is calleu t the variaoie a in the 

theorem is loenti ileo with the variable V in the goal, but since 

V has no value yet* X ooes not receive a value. The theorem 

then sets up the goal (hUMAN *!X) with A as a variable, ihe 

oata-base searching mechanism takes this as a command to look 

lor any assertion which matches that pattern (i.e. an 

instantiation) , ana finds tne assertion (nuMAN TUHlNU). This 

causes X (ana therefore Y) to be bouna to the constant TURlNu, 

and the theorem succeeds, completing the proof ana returning the 

value (FALLIBLE TURING*. 

There seems to be something missing. So iar,tho data oase 

has contalneo only the relevant objects, and there lore HLANNEK 

has rouna the right assertions immediately* Consiaer tne 

proolem we uoulo get if we aaaed new in ionization by evaluating 

the statements* 

IA55EKT (hUmAN SOCRATtSJ) 
(ASbcRT COhttK SQCflATtS)} 

Our oata base now contains the assertions* 

(HUMAN TUflINU) 
(HUMAN SuCRATEb) 
CURttK SuCkATtS) 
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and the theorem* 

(CuivStuUcNl (X) (FALLIbLfc SVX> 
1 GOAL (HUMAN S?X>)) 

■that n we now ask, -Is there a lallible uree*V" In PLANNER 
«a woula oo this by evaluating th« expression! 

(1HPROG (A) tOOAL (rALLIBLE S?X>; IGOAL (GREEK 5?X)>> 
This time the protocol is 

[GOAL (FALLIBLE 5?X)J 

[PKOVED? (FALLIBLE s?A)I 
X bECOMES TURING 

CGGAL (GREEK TURING)J 

(PRGvbD? (GREEK. IbnlNG)) 
FAIL 
FAIL 
X BECOMES SOCRAIES 

[GOAL (GREEK SOCkATES)) 

[PROvED? (GREEK SOCRATES)! 
SUCCEED 

ThPROG acts like an AND, insisting that all o] Its terms 

are satisfied before the THPROG is happy. Notice what might 

happen. The first GOAL may be satisfied Dy the exact same 

deduction as beiore, since we have not removea information. If 

the aata-base searcher happens to run into TURING before it 

finds SOCRATES, the goal (HUMAN s?X) will succeed, binding S?X 

to TURINu. After (FALLIBLE S?X) succeeds, the ThPROG will then 

establish the new goal (GREEK TURING), which is Doomed to fail 

since it has not been asserted, and there are no applicable 

tneorems. If we think in LISP terms, this is a serious problem, 

since the evaluation oi the first GOAL has been completeo beiore 

tne second one is callua, ano the "push-oown list" now contains 



only the IdHKCu* It we try to go oacJc to the beginning ana 
start over, it will again rina lURINu anu so on, ad infinitum. 

One of the most important features 01 the PLA&NbR language 
is that oacicup in case of lallure is always possible, anu 
moreover tnis bacxup can go to the last place where a decision 
03 any sort was Qiaae. Hare, the uecision was to pick a 
particular assertion irora the oata base to match a goal. Other 
oecisions might be the choice of a theorem to satisfy a goal, or 

a decision of other types founo in more complex FLANNhH 
functions, PLANhbk keeps enough information to change any 
oecision and sena evaluation back down a new path. 

In our example the decision was made insioe the theorem for 
I-ALL1BLE, when the goal (HUMAN *7X> was matcheo to the assertion 
(HUMAN TUR1N0). HLANNbR will retrace its steps, try to find a 
different assertion which matches the goal, find (HUMAN 
biJCHATfcS), ano continue *ith the prooi. The theorem will 
succeea with the value (HALLlbLt ^dCRATES), ana the THPHOG will 
proceed to the next expression, luQAL (GREEK 6?XJJ, Mnce X has 
been bouna to SOChAThS, this will set up tne goal t GREEK 
SQCRATfcS) which will succeed immediately by finding the 
corresponolng assertion in the oata base. Since there are no 
more expressions in the 1HFR0O, it will succeed, returning as 
its value the value of the last expression, (GRfcbK SOCRATbS). 
ihe whole coorse ol the deduction process oepenos on the failure 
mechanism for backing up and trying things over (this is 



actually the process of trying different branches oown the 
suogoal tree.) All or the lunctlons like THCUNb, TnArtU, lHUrf, 
ate. are controlled by success vs. failure, rather than NIL vs. 
non-KIL as in LISP. This Is then the PLANNEh axecutive which 
establishes ana manipulates subgoals in looking aor a prool. 

So far we have seen that although PLANNEh is written as an 
evaluator, it diners in several critical ways irom anything 
wnich is normally considerea a programming language. Hirst, it 
Is goal-oirected. Tneorems can be thought oi as subroutines, 
but they can be callea by specifying the goal which Is to be 
satlsfieo. This is like having the abilitiy to say "Call a 
subroutine which will achieve the desired result at this point." 
Secona, the evaluator has the mechanism 01 success ana failure 
to hanaie the exploration 01 the a subgoal tree. Other 

evaluators, such as LISP, with a basic recursive evaluator ha^e 
no way to do this. Third, PLANNtR contains a large set of 
primitive commands lor matching patterns end manipulating a aata 
base, ana lor handling that aata base efilciently. 

On the other sloe, *e can ask. how it differs irom other 
theorem provers. nhat is gainea by writing theorems in the form 
of programs, and giving them power to call other programs whlcn 
manipulate data? The Key is in the form 01 the data the 
tneoreurprover can accept. Most systems take Declarative 
information, as in preaicate calculus. This is in the jorm of 
expressions which represent "facts 1 * about the world. Thes« are 



manipulated oy the theorem^prover according to soi&e fixed 
uniform process set oy tne system. HLANNbK can ma*e use oj 
imperative in lormation, telling it how to go about proving a 
subgoal, or to f&atte use of an assertion. This produces what is 
called hierarchical control structure. That is, any tneorem can 
indicate what the theorem prover Is supposed to oo as It 

continues the proof. It has the full power to evaluate 
expressions which can depend on Doth the data base and the 
suogoal tree, ano to use its results to control the lurther 
proof by making assertions, deciding what theorems are to be 
useo, ana specifying a sequence of steps to be followed, nhat 
does this jean in practical terms? In what way does it sake a 
^oetter" theorem prover? fte will give several examples of areas 
where the approach Is Important. 

j-irst, conslaer the basic proolem of oeciding what subgoals 
to try in attempting to satlsiy a goal, ^fery often, knowledge 
of the subject matter will tell us that certain methoos are very 
lixely to succeea, others may be useful ii certain other 
conditions are present, while others may be possibly valuable, 
out not lively. Ad would like to have the ability to use 
heuristic programs to determine these facts ana direct the 

theorem prover accoroingly. It should oe able to direct the 
search for goals ano solutions in the best way possible, and 

aole to oring as much intelligence as possible to bear on the 

udcision. In t'LANNtH this is aone by adding to our uOAL 



staWaiant d recommenaetion list which can sped ly that UNLf 
certain theorems are to be trieo, or that certain ones are to oe 
trieo hlrtST in a specified oraor. Since tneoreras are programs, 
suoroutines of any type can Oe caliea to help make this decision 
beioro establishing a new uOAL. bach theorem has a n*«e (in our 
aeainition on page I, the theorem was given the name IncOnhrtl), 
to idcliltdte. reierring to them explicitly. 

Another important problem is chat of maintaining a oata 
oase with a reasonable amount of material. Oonsiuer tne Urst 
example above. The statement thdt all humans are fallible, 
while unamoiguous in a declarative sense is actually ambiguous 
in its Imperative sense (i.e. the way it is tg be usea by the 
theorem prover). The first way is to simply use it whenever we 
are faced with the neeo to prove (rALLlBLE S?X). Another way 
might oe to watch for a statement of the lorra (HUMAN 52X) to be 
asserted, ano to immediately assert (rALUBLE S?X) as well. 
There is no abstract logical Difference, but the impact on the 
oata base is tremendous. The more conclusions we oraw when 
information is asserted, the easier proo is will be, since they 
will not have to make the additional steps to aeouce these 
consequences over ano over again, however since we aon-*t nave 
i.uiriita speea and size, it is clearly folly to think of 
oeducing and asserting everything possible (or even everything 
interesting) about the oata when it is entereo. If we ware 
working with totally abstract meaningless theorems ana axioms 



(jn oSbUiHptiun which would nut be Incompatible with many 
tnaoreui-proving schemes), this woula oe an insoluble dileiwna. 
tut rLANhtrf Is designee to work in the real worlo. wn«re our 
Knowleage is touch acre structureu than a set 01 axioms any rules 
or Inference, flfl may very well, when we assert (LIKca 6?H 
r-j.:i.-.:j want to ueouce anu assert (HUMAN 5?A), since in oeoucing 
things abojt on object. It will very oiten be relevant whether 
that object Is human, ana we shoulan-'t need to aeuuce It sacn 
tiBe. un the other hana, it woulu oe silly to assert (nAb-Ab- 
PAHT s?A SFLfcfch), since there is a horue of facts equally 
important ana equally limiteo in use* Hart ol the xnowleuge 
which HLANWEk sftouio have 03 a suoject, then, is what facts are 
Important, and when to araw consequences of an assertion. Tnis 

is done oy having theorems ol an antecedent type* 

(JcMNc ?Hb0k£M2 

(ArtTECfcUfcNl (A Y) (LUbS S?A Hit 
tASShHT <HUMAN $VX>>>) 

This says that when we assert that A likes something, we 

snould also assert (nUMAN WAJ. Of course, such theorems uo not 

have to be so simple. A fully general PLAMNtn program can oe 

activateo oy an AMEC&uhNl theorem* uoing an arbitrary (that is, 

tne programmer whether he be aian or machine has iree choice) 

amount or deduction, asssertion, etc* Knowledge 01 what we are 

aoiny in a particular problem may Indicate that it Is sometimes 

a good loea to do this itinu 01 deduction, and other times not. 

As with the COhotuUhNi theorems, HLANNEU has the luli capacity 



wnen something is asserteu, to evaluate the current state oi the 
udta ana prool, ano spacifically ueciae which ANUCcUCiJT 

theorems suoula be caii*a. 

■ 

pLANNbri thofdjore allows deductions to use all sores ol 
knowleuge about the subject matter which go ]ar beyonu the sat 
O] axioms ana basic ueauctive rules. PLANNER itseir is suoject- 
inaependent f but its power Is such that the auouction proc«sss 
never rieeos to operate on such a level of ignorance. The 
programmer can put In as much heuristic unowleoge as he wants to 
aoout the subject, just as a good teacher would help a class to 
unaerstana a mathematical theory f rather than Just telling them 
the axioms and then giving theorems to prove. 

Another aovantage in representing Knowledge in an 
imperative lorm is the use of a theorem prover in dealing with 
processes involving a sequence or events. Consiaer the case or 
a robot manipulating blocks on a table. It might have data 01 
tne lorm, "olocfcl is on blockS," *oiock2 is behina block3% ana 
"li x is on y ana you put it on z, than x is on z, and is no 
longer on y unless y is the same as Z". Many examples in papers 
on theorem provers are 01 this form ( lor example the classic 
"monkey ana bananas" problem). The problem is that a 
oeclorative theorem prover cannot accept a statement like ION bl 
b2) at lace value, it clearly is not an axioai of the system, 
since its valioity wiil change as the process goes on. It must 
be put in a torm (ON bl b2 SO) where Su is a symbol lor an 



initial state os the worla. In* thiru statement mgnt oe 
expr*ssea asi 

(rUKALL A t L 5 
(AND 

(Oh X Y (HOT X * SI) 
(Ok 

(fcuUAL t i) 

(NOT (ON AL IfUl A ISIII))) 

in this representation, HOT is a unction whose value Is 
the state which results from putting A on ¥ wnen the previous 
state was b. ne run into a problem when we try to asic (UN Z n 
(HUT A i bJ> i.e. 15 oiocJt Z on oiock ft alter we put X on Yt A 
human xnows that if we haven't touches I or H we could Just asx 
(UN 2 h S) out in general it may take a complex deduction to 
aeciue whether we have actually moveu them, ana even if we 
haven't, it will taRe a whole chain of deauctions (tracing oacx 
through the tine sequence) to prove they haven't been moveu. in 
PLANKEk, where we specify a process directly, this whole type oi 
problem can be hanaleo in an intuitively more satis jactory way 

by using the primitive Junction fckAbfc. 

evaluating (cRAbh (ON *2A S?Y>) removes the assertion 
(UN 5?X $?¥) from the uata base. If we thinlt of theorem provers 
as working with a set ot axioms, it seems strange to have 
junction whose purpose is to erase axioms. If insteao we thin* 
oj the data base as the "state or the world" ana the operation 
oi the prover as manipulating that state, it allows us to inafctt 
great simpli lications. ftow we can simply assert (ON Ul &2i 
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without any explicit mention ot states. We can express tne 
necessary theorem as* 



_ 



(JthlWC lhc0itbM3 

. -tCuNbfcUUHM (X t Z) (kUT X Y> 
IOOAL ION S?X SV2)> 
thftA^E (UN S?X *?Z» 
USSbi?f (Uh S?X $?*>))> 

lhis says that whenever we want to satis iy a goal oi tne 

lorm (HUT S7X s?Y), we snoulo first Una out what thing Z tne 

thing A is sitting on, erase tne fact that it is sitting on c, 

and assert that it is sitting on Y. ne could also jo a numDer oi 

other things, such as proving that it is indeea possible to pot 

X on Y, or adaing a list oi specific instructions to a movument 

plan ior an arm to actually execute tne goal. In a more complex 

case, other infractions might be involved, i-or example, ii we 

are iteeping assertions oi the form (ABUvb s?X &?t) we woula need 

to delete those assertions whicn became Jalse when we erased (OH 

S/A &7z) and aod those which oecame true when we addea (ON */A 

$H)* ANftChDEM theorems woula oe calleo by the assertion (ON 

SfX *?Y) to take care of that part, and a similar group calleo 

fcHASiNU theorems can be calleo in an exactly analogous way when 

an assertion is erased, to derive consequences of the erasure. 

Again we e»nphasiie tnat which bf such theorems would oe calleo 

is depenoent on the way the aata base is structureo, and is 

aetermineo oy iuiowleage ot the subject matter* In this example, 

we wouid have to oeciue whether it was worth auolng all oi the 

AdU*fc relations to the oata base, with the resultant neeo to 
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t-r.etifc them whenever something is raovea, or inste&a to omit them 
ana ta*e time to aeuuce them Jrom the UW relation each time they 
are netsaeu. 

Thus in HLANNbKt the changing scaU ol the worlj can De 
mirrored In the changing state ol the aata base, avoioing any 
nddG to ma iii; explicit mention ol states, with the requisite 
overheaa of aeouctions. This is possloie since the iniormation 
is given in an imperative iorm, sped lying theorems as a series 
of specific steps to De executeo. FLANNfck also allows the 
construction of local aata bases called states wnlch are 
varients 01 the global aata base, fcvaluatlon of FLANNtR 
expressions is carriea out relative to a local state. Thus 
simultaneous consideration can oe given to two incompatiole 
states of the worla by explicitly calling the evaluator to 
evaluate statements in tne two states. 

If we look back to the distinction between assertions 
ana theorems made on the first page, it woula seem that we have 
established that the base of assertions is the "current state of 
the worla - , while the oase or theorems is our permanent 
Knowleage of how to ueauce things from tnat state. This is not 
exactly true, ana one or the most exciting possibilities in 
PLANNhft is the capability lor the program itsaii to create ano 
moaily the PLANNcR functions which ibalce up the tneorem base. 
Kather than simply roaKing assertions, a particular PLANNck 
unction might oe written to put together a new theorem or tnaxe 



cnanges to an existing theorem, in a way atjpenuent on the udiu 
ana currant unowieage. It seems likely that aiuaningful 
"teaching" involves this type or behavior rather than simply 
nooi lying parameters or aoaing more individual facts 
(assertions) to a aeclaratlve uata base. 

rcr example suppose we are given the 10 Hewing protocols 
lor a junction ]. An expression such as "new lb * 4]" mean* that 
we are introuueing a new Iaentifi«r which Is b * 4 ■ 20* 

il U) ■ IftUb* U=U SO 1 
Thus < 1 u) ■ I 

il U = l-ALSb* 1=0 SO 

1 * new I I- II TKUbi u=U SO I 
Thus if I) = 1 

If 2> « 1-ALSb* 2*U SO 

l * new 12-11 t-ALSh* l=u SO 

1 * new (I- II THUbt u-u SO J 
Thus tr 2) = 2 

it 3) = HALStt 3»tj 50 

3 * new 1 3— 1 J l-ALSEi 2»u SO 

2 * new [2- 1 J HALSci 1-0 SO 

I * new [ l-l J TflUhi 0*0 SO I 
Thus tf 3) ■ 6 

tiy the process or "variobailzatlon N t we conclude that 
the aoove protocols are compatible with the following program 

which is in the lorffl of a tree (which we shall call the protocol 
tree). 

it x) * it x*U then I 

else x * new t(x-I)->x] i; x«u then 1 

else x * new tfx-1)->xl if x»U then I 

else x * new [(x-I)->xl ix x«o then I 
else . .. 



wow Ly ioenti lying inoistinguishaDle nodes on the protocol tree, 
we QUtaln. 



U x) - 11 x e O then I 

else x *t i U-W> 



Ine reader will note that t is in fact the lactorlal junction, 
HLANNcn proceaures and theorems can oe taught In precisely the 
same lashion (which we call procedural abstraction), ror 
example the computer can Da taught to build a wall or recognize 
a tower from examples* The reaoer is cautioneu that althougn we 
shall speax 01 the computer being "taught", we oo not assume 
that anything like what has been classically descrioeu as 
"learning" is taxing place, ne assume that thtt teacher has a 
good working model ot the stuoent that is being taught. The 
teacher attempts to convey a certain ooay ol knowledge to the 

student. OF course tne stuoent will be tolo anything which 
might help him to unaerstand the material (aster. 



MAlCHLtWi 



MAi'CftLtbo Is a pattern oirecteu language that is ushu In 
tiie Implementation 01 HLANhch* V.Al\,nLc5S is u*eg both In tna 
internal wonting* ot HLAhNeR ana oS a tool In the ueauctive 
system itselr. MAlCnLtbb is similar to otner structural pattern 
matching ldngu&ges such as CUKvcKl. It lids oeen uesi&neo wltn 
tne iollowing consxaerations in minai 

I. Ihe language shouio be vary powerful yet si.aple 
constructs shouio be euiciently cofopileu, 

2< ^unctions must be able to oe separately ccupileo. 

3* The syntax must be completely unambiguous as to 
which elements are lunction calls, ioentulers, an^i uatd 
structures. 

4 f The language must interlace with HLANNbK in a 
natural way. 

s. The language shouio treat lists ano vectors 
symmetrically so that lor the most part the same program will 
run wnetner the structures are oiaoe up ol vectors, tuples, or 

lists. Declarations aetermine which Jorm is actually use-. 
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'i.I*i t'ruiix upurutora lur luuhtiliuri* 

Ai* iii uitUdl In poLLern nuiLihih-j language:- m*i :*h*ill iX 1 1 «jw 

cuuiAanLii like J, u, (a 0). uiiii (u (J -J)J Cu muLUi Ulily 

Llutu&ui vui>- An iuufiLi Hoj will be iiuJiidLuu by *> |jm;i u 

upuroLur wuich will Lull huw Lhu lUuiiLUiur is Lu Li'ti U:>tfu« Fui 

txdmple *;*x lii Lhu value oi Lhu iuuntlller x. 1( x ha:, L.l»t vului- 

(d J) Lhen Six will only luulcli (u J), rtu shall u&u v H x I "lhu 
location oi x"J lor the location whufe Lhu vaiuu ui the 

identiiier x is btoreu. he nucu tu be ablu Lu Chunge the vgjue 
or en latiiiLiiiur In u pattern uuituhi juppose that x hub the 
value J. 1 i we mbtch B^Jl L*the temporary valuu oi x M J a^din^L 
Cj b) f then x will 1 turned 1 <j Ltily l>« given the value (d u). |he 
ljentirler x will keep Lhu value (d uJ a the rewuinuer oi the 
pattern matches* Otherwise Lhti value of x will revert tu j. 
Note that inouul jV teletype* obstinately convert Lne character 
"odek orrow" to the character •-. Ayuiii suppose that x hai» Uiu 
value -t* If we watch v i x l M the permanent value ol x*J aijuiiibL 
(d uJ, then x will imiueultely ue given the value (a u). turnover 
the vdlue ui x will reuiein (a uj whether or nuL the nudiiUiar oi 
Lne pattern mutches, unce dyaln suppose LhdL x ftus the vuluu j. 
ll wu watCh ViX l"the suuiiuqueiiL value ol x"J dUullliit (d b) Ll.itfl-l 
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triii vuiutt or x will reaiain J unless the rest of the patten* 
matches. If the re^t of the pattern matches then X wiJI Le 
assignee the value (a o). 

^.Uc ayntd* of txpressions 

Matchless uses Polish prefix notation tor junction colls 
with the actual call oelimiteu uy *t* ano ")**• tor example v+ c 
3> evaluates to b. If y has the value 4, then (+ Siy |j will 

only match b. Or course we use the characters •*(" ano ••)" to 
aeliailt lists. The value of t$$y) is (4) anj the value oj (1 + 
S*y l> (4 a) ssy) is <d U a) 4)* if the lunction call is to 

udnote a segment then it is aelioilteu oy "< M and ">". The 

function rest will return the rest of the list that it is given 
as an argu*Qent. t-or example irest (a b cJ> evaluates to lb cJ* 
but (J <rest (a b c)> e f) evaluates to ( I b c e t). 
Furthermore, (a b <rest (I (e 1) g)> It) will only match (a b (e 
t) g X). lie use the characters "[" ano "J" to aelirait vectors, 
vectors are storeo in garbage collected storage. The value of 
[«y (d b) s*y] is (4 <a o) 4). Tuples are oelimiteu by "!t H 
an j *');■•. They are storeo in the stacx whereas the vectors are 
garbage collecteo. Otherwise vectors ana tuples are 
Indistinguishable* 
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Kie iiwplfe types brtu their aLLrdvi<*tion3 uret 

w/ jor pointer lor exuthplu (a b) f a, ufio (> 
^atoiijic/ lor atomic lor HAdlfcple d, ft-c, O, ahg r- llo 

*** lor begiiitini lor exdu«ple -o u-, -j la *j ***'", — - i;*j 
ilst (a u cJ had iub&eynitsnts — f -d-*, -J o- , -a u c-, -o c- f ahJ 

It-1A> jor ilxea [joint numuer lor example j t *, <*nj »* 

11-LUA'iJ ror lloating point numoer lor uXoii.ple J#u, . I, 
ana ba.D 

lfid rest ui tnis action sncula not uu rebo until in* 
redaer unuur&tbnus pattern matching wnlch is explained in 
section 4, J below, ink lolloping types will not t,e explainer 
here. Ihey are incluaea only lor completeness, irte 
cojipllcatej types dna their diortiviotlonb arei 

vfcAPhA type type~ot-argui&ents/ for kappa expression, 

vLMbLA type type-of -argument 5 i tor la&ooa expression, 

vAOf) ior activation, 

voU ror state, 

tblrfbi for binning* v 

iLJC type; 10 r location, 

ujh t> pe ; ror tuple, 

ivu\J typo J fur vector. 



InAriLLfcrf} tor interrupt nanoler 
vPrtJC/ for process 

utjier types can be aefinecu tor example the type number con oe 
*ie lineo as lollowst 

(jeline nuji (*appa () (vei ttixi i3loat}/>) 
befine the type tnuai; (ie. nuoiDer) to be a type with no 
arjuii-ents which is the Disjunction of oeing a rixeo or lioatinj 
paint number. The type xpr which is an s-expression can be 
ud lineo oy 

(define xpr Uappa () tvel (atomic) UlstiMJ 
An s-expression is < ) or atomic or a list. 

tueiine list ( kappa <) tvoi () tpair txpr/ Hist)}/)) 

A list is <) or the pair 01 an s-expression ana a iist. 

(Jefine pair (type (Uxpr) first J (<list> rest)) 
(S-jirst $=rest ))) 

A pair is a iist whose rlrst wleraent is an s-expression ana the 
rdst i* o iist. Ihe function make will construct tne 
appropriate structure ror a type with arguments. Inus \make 



Ipair (a) (p c)J> evaluates to ((aJ o c). Also wlrst (taJ o 
tit is (aJ anu (rest ((a) u c)J is (u c). 

■ 
(aejlne property- list (itappa l) (star (atomic^ (xpr))J) 

A property list is a list of even length sucn that the oJu 

nuraotred elements are atomic. I he actor star Is trie Aloena star 

or regular expressions* hor example the loliowing are property 

lists* (), (a (3)), and (pi 4 hello (r 1))- 

t je line complex 

(type (( Vnum> real) ( tnum) Imaginary i) 
(complex 5»reel **imaglnary J J) 
The type complex has two arguments real ano imaginary which era 
numoers. The junction "make* 1 applieu to a type will construct 
an object of that type out oi lists or vectors. Ihe function 
"erect" applieu to a type will construct an object 01 thai type 
out D 1 tuples. 

(maxe (complex 3 4>) evaluates to (complex J 4l 
ir*al (maxe (complex 3 4)}> evaluates to J 
(imaginary (make (complex J A))) evalueges to 4 
(prog (<inum) a bJ) 

(I This a comment, ne are Inside a program. The 
ijenti ilttrs a and d are aeclareu to be oi type (numJ ie number/ 
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\\ in the assignment statement Oelow the pattern 
(complex S**a *-o) Is mutchud against tne expression [complex j 

4J.J 

(assign (coapiex S-a $-0/ (malce (complex j 4;)j 
a gats the? value 3 
b gets the value 4 

(real (assign (complex (replace li 4J (matte (complex 3 
4>>>; evaluates to 7 

(prog liixi (((complex) (c (erect I ^l)}i 
(real $sc)> will evaluate to I 
Ihe expression iSEILuC 1 x) will set the location 1 to the value 
x ana return the value X. 

(setloc 

(real 

(maKe (complex 3 A)) 
loc> 
i> will evaluate to (complex i 4) 
ne can de ilntt the type HbP-lu Instruction as loilowsi 

(Jeiine instruction (type 
(((fix) opcoae) 
( (rix) accumulator J 
((fix) inulrect) 
{ (1 ix) inuex) 
( ( lixJ aourtfss)) 
(tielos 

((bits 9. 27-J &*opcoae) 

((bits 4. -;3.) ^accumulator) 

((bits l« Z2*> *«inairect) 

((bits 4. IB.) i-inaex) 

((bits Id. ()« ) *=aduress)> >) 



- 



An Insturction with opcoae ;«4 a no 4 In th* accumulator nela 
will cause th« machine to halt. /»« can construct such an 
instruction with Uaka (instruction 4b4 4)J which evaluates to 
Lae lixeo point number "^.b44liUUiAjU)u M . 
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4*3 Simple Examples 01 Matching 



The iaea or structural matching is fundamental to tha 
MAiVhLbSo processor* 6y means ol the primitive runction tlS 
pattern expression) we can determine ii pattern botches 
expression. 7tte Junction p is" nas the value true if tne match 
succeeas and () otherwise* pattern matching takes place through 
tne use oi sloe e uects to change che value ol iaenti Jier lo be 
that 02 the object which it is matching. The assignment 
statement in MAfChLt5S is a varient ui the primitive M is w . fne 
expressions \A33iCN pattern expression) is well aeiined only li 
pattern matches expression. Ihe value ol the function '•assign" 
is the value o J expression. 

A segment identi iter is always assignor tne smallest 
possiole leftmost segment as value in matching, below we give 
some examples oa the values ol identifiers after assignment 
statements nave been executeo. r#e use the character - to 
oellmit segments. The characters { and ) are useo to delimit 
Junction ca Hi* 

tprog (a Uatomlc) h) (<?> c)> 

w This is a comment. Ae are insiue a program 
in which we have aeclarea a to oe a pointer, h to oe atomic, and 
C to be a segment) 

IS in the assignment statement below the pattern 



(<*-4 k *-n $-l) is matcheu against tne value (11J < o I a). 

Us is-d x s-fi ^-c> ((1) k o o aii; 

a gets the vdluu ( 1) 

Ik yets the value b 

c yeLs the voJuc -o a- 
*ind vjlud j: the program 1& true wiuch i& the value at the 
assignment statement . 

tprog (t<?> c) (latDiDic/ h) a) 

Us (s-c s-h k *-a) (a j d k qJ>> 

c yets the value -d J- 

h gets the value b 

& gets the value q 
vprog (rirst last (<V> raiJalelJ 

Us (S-iirst **-MioJlis >-last) (a u c aJ); 

lirst gets the value a 

miaale gets the value -o c- 

last gets the value a 
Iprag (a b) 

Us (5-a *-b) (u))> lails because there Is only 
one element In (oj. 

i prog (( (atomic/ a ) J 

Us b-a to c))/ lolls oecause (o i) Is not an 
atom. 
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An expression that consists of the prefix operator $$ lolloweu 
by a iaenti Her will oniy match an object equal to the value or 
th* iuunti lier. 

vprog (( <v> a)) 

Us <S-a «a) (a b c a o cJ >) 

a gets the value -a b c- 
iprog ({<?> cj bj) 

Us fS-a x ssa **-b) (abxdxabxo q>); 
a gets the valua -a b x u- 
b gets the value -q- 

An expression that consists of the preiix operator 5? ( reaa the 

value g Ivan J follo*&d by ah loantlfier will match tA* value oi 

the identifier if it has one, otherwise the identifier is 
assigned a value, he shall use the pseuoo atom NOvALUc to 
indicate that an ioentifier does not have a value, 
iprog (a) 

Us *7a t); 
a gets the value t 
Iprog (CI UxJ (a :>))) 
lis 5?a 4>) 

a is initialized to 3 on entrance to the prog. 
Consequently the assignment statement fails, 
tprog <(<?> a)) 

Us (5-a s?a) (a D c c b a))) tails oecause once 



a Is ossigneu a value* a can only match a segment that is tfquul 
to tne value 01 a. If a pattern In an assignment statement 
cannut ukitcfi the valuo of the secona argument at the assignment 
statement then the assignment statement returns the value CI, 
Otherwise tne value t. 
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4,4 Primitive rorms 



<*.4.l runctional rorms 

Functional lorms begin with the atom lambca or the ato-n 
bindlamoaa. They ioox llkftl 

(LAMbUA type list-oi-parameiers expressions) where type 
is the type of value returned anu the value or the iorm is the 
last expression in expressions. If the list of parameters Is 
atomic then that atoiti is the only parameter and it is bouno to 
the list ol unevaluateu arguments, functional forms tnat begin 
with tne atom binulamboa have the lorm (blNULAMBDA type (list* 
of-paratnuters binoing-iaentl 1 lerJ expressions), hor example 

W lambda x «x) a d c) evaluates to (a b c) 

If the Jirst element ol the list oi parameters is a type then 
tnere is Just one argument which is a tuple ol that type. 

Klamboa titup nlx)J x) il S*x>) II *l 3j> evaluates to 

II where ItUp tjlx>) is the type oi the tuple ol lixeo point 

nu moors. The function I selects the first element oj the 

tuple. 

utherwise we will have a list of declarations oj luentifiers. 

Klamboa (x) S*x) l" j)j evaluates to a pointer to 3 ihe 

junction " is Quote. Note that the value is not the fixeo point 
nudioer 3. 



U lamoaa (x) Sfcx) a) evaluates to a 

lUdmDua itix) Utjix) x)> 5&x) 1+ <> *}t evaluates to 4 

Uiaroboa \ lixJ (((flx> x>> 1+ s$x l)J 2) evaluates lo j 

Hlaraboa (fix) {(tilx> x) <uix> y>) 1+ svx **y)> 2 jj 

evaluates co b 

I] an ioenti Her is or type <") than the corresponding argument 

is not evaluated. 

Ulamboa (((") x>) SSx) 3> evaluates to a pointer to j 

U lambda ((l"J x)) SSx) a> evaluates to a 

Ulamboa (((") x>) 5SX> 1+ k 2>> evaluates to t+ <> 2) 

hunctions with an aroitrary numoer oi arguments are accoiuouateo 

by passing a tuple whicn contains the evaluateu arguments. 

buppose that we already have a function plus which will aoo two 

numbers together* 



(define + (lambda llix> ((tup (fix); x) 

(; the type I tup (fix)) is a tuple oa lixea point 
nunbers) 

(tor tllxJ 

(U ilxJ (result u)J 

it declare the iaenti Her result to be fixed 
point number and initialize it to u}) 

((test 

Us !(j; ssx> 

^return SSresult) 
tl each time before executing the loop 
test to see if x is the null tuple ana if so then return the 
result)] 

(step (assign six (rest ssx>>> 
(* alter each pass throught the loop 
assign x to the rest ot x)) 

(assign *iresult iplus (I ssxv ssresult))) 
i; the oouy of the loop is to aod the first 
element or x into the result) H 



I* J * 4) evaluates to V 
4.4, * >tatro ronns 

Macros are expanoeo dy the interpreter, by the 
assembler, ano oy the compiler* Ine results are respectively 
interpreter assemoleu, ano compiieu. Macro lorois lou* line 

IhACriu llst-oi-parameters expressions) The expansion or 
tne (&acro is the value o: the last expression. The function 
genbraces will generate a pair or braces, ror example (I 
tgenbraces a b) 0) will evaluate to ( I ia &.> o) * 

(jeilne chop (macro <x> 

(genbraces setloc 
Six 

tgenbraces rest tgenbraces content S5x))>)) 

The macro chop will tafce a location as its argument and cause 
the contents of that location to de changed to contain the rest 
oi the previous contents. 

(chop $ m y) will expand to tsetloc $"y t rest (content 

5"y>) 

he coul-j have oeiinea the function * as a macro as loliows* 



(jefine * (macro x 
iconu 

( lis ( J \rest $*xJJ 

tl il the rest oi x is () then the answer is UJ 

U> 

(t 



it otherwise wu want id expand to the sum of ttta 
sacono element of x anu "+" of the rest of tne re*t of xJ 

^genbraces plus l<£ &*x> tgenoraces * <rest S9X 
2>>>))J) 

Thus 

V+ J 2 4J expanus to iplus J tplus 2 iplus 4 o)JJ 



t.u.J Actor t-orms 

Actors are usea in patterns to match values. Ihe 
primary ai nerence between functions and actors is that 
Functions proouce values while actors match them- Actors anu 
iunctions take their arguments in an exactly analogous fashion. 

Actor torros begin with the atom kappa or tne atom 

blnakappa. They look like' 

(KAPPA type list-ol-paramtfters patterns) 

(BINUKAPHAtype (llst-of-parameters binoing-Iaenti Jier) 
patterns) where type Is the type o] value matcheu ano the xorm 
mast match ali ol the patterns. It the list oi parameters is 
atomic then that atom Is the only parameter anfl it is bouno to 
the list of unevaluateo arguments, t-or example 

idcappa x ,$$x) a b c> matches only (a b c) 
If the Hrst element ol the list o( parameters is a type then 
there is just one argument which is a tuple ol that type. 

idcappa ((Ulp tlix)> x) *sx) 1 2 3> matches only Sll *: 
3J{ where irlxsl is the type of the tuple of flxeu point 
numbers- 
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otherwise we will nave d list 01 Declarations of identi Hers. 
\(»tappa ix) mi i" 3}> matches only a pointer to 3 
Unappd <xl l¥X) ui matches only a 

Uxappa Wlx) ((Uix) x)) $>x) (+ * <>}) matches only 4 
Wxappa lrix> (((fix) x)) (+ $$x l)J £l matches only j 
lUappa i lix) (((fix) x) (vflx> y)) i+ S$x $$y>) t 3; 

matches only b 

1 3 an laentirier is of type i**) then tne corresponding argument. 

Is not evaluated* 

lUappe <(i m ) x)) $$x) 3) matches only a pointer to J 

W kappa t{i m ) x)) SSxJ a) matches only a 

tUappa <U") x)> s$x) i + I <L>i matcnes only i+ 2 *) 



4.D Actors in Patterns 



hxamples ol actors art* vel lor disjunction, noii lor 
negation, et ior conjunction, ana star ior Klt*tne star In 
general regular expressions, rte use the characters < and > to 
udllmlt actor calls tnat are to match as segments. 

iprog (a D c) 

It we are insiue a program, we have 

oeclareo tne ioenti Hers a o ano c to be pointers. In the 
assignment statement below the pattern (x <et s-a i-b> S*-cJ will 
be aiatchea against <* x y z>. lhe pattern <at s*-a 5-b* will 
match an expression only 1 I ooth S-a and s-b match the 
expression. ) 

Us u <et *-a b-o> &-c) (K x y z>)> 

a gets the value {x y) 

b gets tne value (x y) 

t gets the value z 
iprog ((<?> x c>) 

Us ($-x <vel (th) (twJ> S-c) (a o tw th>> J 

x gets the value -a o- 

c gets the value *th- 
tprog <x) 

Us (<star a> s-x) (a a a a))> 

x gets the value a 



11M argument 01 the If actor is a list o| clauses* if the 
object thdt the actor ii Is trying to matcn has the property the 
it matches the first element ol one of the clauses then it nvjst 
match the rest of the elements In that clause, 
(prog (((fix) x)) 

Us (if (UlxJ *-x)J 3>) 

x gets the value 3 since 3 is a llxeu point 
nuraour, 

Ihe argument ox the actor when Is a list 01 clauses. If the 
Ilrst element of one 01 the clauses evaluates to true then the 
ooject that the actor is trying to match must match the rest or 
the elements in the clause, 

(prog (<y t)J 
* 

(Is (when (SSy &-ylJ (a b))) 

y gets the value (a b> since it was lnitializeo 

to t 

A number of actors are uefineo oelow. For example " Is quote, 
Inus (" S$aJ wlJl only match $*a. A palindrome is defined to oe 
a list that reaas the same backwards and forwards. Thus (a (b) 
lo) a) f (), ana ((a b) (a b)> are palindromes. More formally in 
HAfCriLtSS, a palindrome can oefinea as an actor of no arguments* 



. J-. ■ : ■ -. palinorome 
Uappa (> 

(i palindrome is a actor of no arguments) 
Wei 



t> 

ll a palindrome is either O ort 
l same (x> 

ti let X tie a pointer to the 

rirst element 03 the list* Also x must be the Ubt uiement 01 
tad list with a pailnarome in between) 

<*-x <pdlindrome> ^x))))) 

ror example 

lis Ipaiinurome) to I I a)) Is true* 

in@ rorffl Kappa is li&e the laoiooa 01 LISP except that It is usee 

in actors insteau 01 in functions, lhe aoove definition reaos 

*d palinorome is a list such that it is () or it is a list wnicn 

begins ana enas with x with a pallnarome in between." rne actor 

same causes the ioentirier x to be rebouna to the pseujo-atom 

NQvALUt every time that palinorome is called. The actor reverse 

is deuneo to be such that Us traverse S$x.) &$y> is true only 

if the value of x is the reverse 01 the value of y. The 

definition ot reverse is 



( Je line reverse 

(kappa (x) 

lit 

I (atonic) 

(1 it the object being matcheu is atomic 
then it must be equal to xl 

68 X J 
((same (first <<v> rest)) 

(I otherwise let first oe a 

Soihter to the first element of the matching ooject and rest be 
he segment ot the rest of the elements oi the matching object.) 

(S-iirst 5-rest) 
U when (^reverse (rest)> 
s*iirst) matches ssx we are aone) 

(when ((is 

Kreverse < 5$rest)> 
5* lirst ) 

SSX>)))>)> 
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tor uXtitapXit 

Us traverse <x y z)) (z y x)) Is true 

tsserttially all the ioeas ror tne actors coidc from Host 
proouct ions, bNr, general regular expressions, bLlkS'l , SwOdOL, 
CONVtMl , and LI5H* Ae will use UbJ to designate tne expression 
tnat is to be useu to match the actor calls being ueiineo oeiow, 
rte will give examples 01 the use of these actors aiterwar^. In* 
actor braces Is oerinea to match a pair of braces. Ihus traces 
I 2) will match tl 2). The function gengraces will generate a 
pair 01 braces. Ihe expression tgenoraces 1 <li will evaluate to 
tl 2>. 

4-3-1 Primitive Actors 



4«b,l.l Control Frifoitves 

INuN pattern^ will match an object only lr pattern does 
not match the ooject. Ihus tnon c) will ma ten a t but tnon a) 
will not match a* 

ivcL uisjuncts; where oisjuncts is of type segment will 
match dn ooject only it soo*e olsjunct in turn will match tl\e 
ooject. 



tbi' cunjuncts) where conjuncts is oj type segir-ent will 

match an ooject only ii each conjunct In turn will mutcn th* 

oojttct. 

ilr type clauses) where clauses is 01 type segment will 

mdtcn dn ooject ii the jirst element or some clause in turn will 

match the uoject and tnen the rest of the elements in that 

clause match the object. 

iprog (x y> 

lis 

u i ( invtol 5-x) (s-y) J 

too)* 
y gets the value loo since 100 is not a number 

iiAMb type declaration patterns) wnere patterns has the 
type segment will matcn an object only if eacn pattern in turn 
matches the object. Tne actor same is litce the actor at except 
that it declares its type ana can declare identiriers. 

tassign Isame (x) s**x> 4) 
x yets the value 4 

IfATHROu type aeclaration body> where booy is of type 
segment Is Just lixe the function prog which Is descrioea below 
except that insteau 01 exiting t^y calling the function return it 
exits oy calling the junction true* or the junction raise whicn 
are aescriueo inunuuldtely oelow. 

tl'rfJh? pattern expression oindings> makes sense only 
wnen svaluateu within the actor patprog* If pattern matches 
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expression ana the rest the match In which tne pat^rog appears 
5JCCcuus trien the patprog is exiteJ. Otherwise, the vaiuu o) 
t;ie junction truei Is d message croatyj oy the jailure to match* 

trALSt: message) causes the generation ot a jailure with 
b message the value 01 message. 

ttUEN type clauses) where clause* is 01 type segment 
will evaluate the first element of eacn clause* li the 
evaluation is nofh null then the rest 01 tne elements In th* 
clause must match the object that the actor ftnbN is attempting 

to match. 

tprog (Ufix) (y I )> xJ 

Us when (Us *-x 1+ S*y I)) U S$x 
2))) 4)) 

x gets the value 2 

15S theta) will only match an expression which matches 
tne ioentl Her theta. 

U? theta) will act like U* theta) if the laentifier 
tnetd has a value. Otherwise tsv theta) will match an ooject x 
only ij the ioenti lier theta will match x. 

is* theta) will match any expression x wnich will uiatch 
tne loentirier theta anu will give theta the value x. 

t$- theta) will match any expression x which can match 
tne Ldenti Her theta. The laenti Her theta will be given the 
value x except that if the pattern tails to match then x will oe 
raptured to its previous value. 



v&i theta) will math any expression x which can match 
trie iat*nn liur theta. Ii the entire pattern matches then thetu 
will oe assigned the value x. 

4*5.1.2 Uata structure Primitives 

4.3.1.2*1 Pointer Actors 

» 
1?) will match any s-expression. 

V? nJ will match an object only ti the object has length 
the value of n. ror example the iollowlng are truei 

Us t?) (b a el) i* true. 
Us (<V>) (>> is true. 

Us (a <V>) (a)J is true. 
Us (a <V>) (a b)> is true. 

Something ol the form i" x> will only match an object ii 
the object is equal to x. This is just another Description of 
the actor M which Is quote* t-or example l" &&a) will only match 
$$d ana i" a> will only match a. 

(5TAK patterns) will match an object only if the object 
consists oj a sequence (incluoing the null sequence) of elements 
tnat match patterns, ror example {star 3> will match (J j 3) 
ana (a <star o c> e) will match (a (b c) (b c) e). 

tUAGObR patterns J will matnc an object only if the 
ooject consists oi at least one sequence oi elements that matcn 



pjtCtfrJ*£* ror example voagger I 1 1 x J > will match (3 vi. 

iOHTIUWS Scquence-or-pa ttt*rns ) will ibatcn a sequence or 
claiimms which match a suosequence oJ the iequdnce-of-optiGris 
iro»a left lo right, ror example (options a (fix/ vatQLnlcJ/ «ijj 
atdccr* (d j) . 

itifiilfc arg/ will match any object. As a siud efi&ct it 
prints the value 01 arg< 

\== xJ will match an ooject only 11 the value o: x is eq 
lo the ooject. 

ICUNIAINS pat) will match any ooject tnat contains the 
pd ttern pat. 



cotMin* contains <oina<appa (((V'J y)) o) 

v* the iaentirier o is bcxjnd to tne 

bindings tnat were in lorce oe lore the function contains was 

wnterea) 

11 the (unction contains ta*es one 

argument which is not evaluated/ 

v; we ir«ust «itaice y into an actor with no 
arguments! 

(1 the runction val will evaluate any 
expression relative to a set oi binaings> 

ll the function genbraces will surrouno 
its arguments with bracesJ 

(container Wal (geno races actor < kappa 
(J $sy)> $±d))>) 

(cerine container (kappa (((Kappa (>> x)J 
Vi CON'l Altai is an actor with one 
arguaent x which is a xappa expression which matches pointers 
anu tatces no arguments/ 

lir 

(U&xJ 

(1 ir the actor matches the 
matching ooject than we are aonaJ) 

< vatoi&ic > 

it ii the Jiatcning object IS 
atomic then fall/ 



(((container *^xy <2>) 
II if the lirst el^tuent in the 
matching uojucL contains x then we ara uone/> 

(li else tne rest of tna 
matching ouject must contain x/ 

(U) < container >Vx>)) / )) 
ibriAbn location; will match an ouject only li location 
is a type that can hola a type of Che tne type 01 ubJ, Ij tne 

rest 01 the hi o l c t l i>ucceeus then the location is suniSheu to holu 
tne object. 

tprog (< l ux> (a 1 )j J 

lis (smash fc*a) ^)v 
a gets Lne value <; 
iHcHLACt; x) will natch any object. Ji the entire 
assignment statement succeeds then GflJ will be replaced with x. 

(prog (y) 

Us (at $~y ((replace d) <replace (o)>JJ 
(c d e>}> 

y gets the value (a uj 
(CONifcM patJ will match an location whose content 
matches the pattern SSpat. 

(prog C<<HxJ (a 3) o) 

(assign (content &-b) £"a )) 
o gets the value J 
iLOCA'JION pat) will match an expression whose location 
mat cries the pattern SSpat. 

tprog 



A.^ 



pu'je cl 



<« Hoc WJJ y)) 

lis [IV) (location 5*-yJ </>J la b cJ/ 
ireturn (in £$y)/J will evaluot.* to u 
vu^nLUU x> will gene rbt it a new locatlun or J tne j»i«iCiC 
nololng the location 01 x* 

tin \genloc 3>> will evaluate to 3 

4. 3. 1.2.4 Atom ano Property Actors 

tAfOM]C> will only match an atom. 
(Is lalottitJ a; Is true. 

(hAS properties) will match any atom with tha 
appropriate properties where properties is oj the forni 

(lndicatcrl value!) (indicator*: valued... ihe absence 
or an indicator on a property list is exactly equivalent to tnot 
injicator oeing present with with tha null value. The actor 
"has 1- allows MATChLb^S to oo pattern matching on aroitrary grapn 
structures, Atonis represent tne nooes 01 a graph* their 
properties represent the links between nooes. Ins example 01 
trie syntax or Llb^ given below shows how we can write grammars 
over graphs. Tne loea of developing pattern structures over 
graphs nas been generallzeo ano extenoed in t'LANritrf* 

imITH pattern properties; will datch an expression sucn 
tnat its rirst eltment matches pattern ana the result or getting 
the value of indicator will match value. The actor with is usea 



In flamJch to (natch expressions Lhdt might nave property lists. 

tuivt properties* will match any list or atom where 
i-ruptrLu,s Is of the form . .,<i/iuicetor value).... lj the 
entlra assignment statement in which the actor succeeas tli^n the 
vdiuc or vjiuel will be storeu unuer the value oJ inulujlurL 

4»D*I.^.J noru ana ttumoer Actors 

U\urt) will mutch OdJ only ii OdJ is a a nuaioer. ror 
example \nuui> will iikitch J. 

ILcSS n) will match any number less than the value or n. 

iOWEAlfcrt r\i will iutch any number greater tnan the value 
01 n. 

vrlELbb spec! UcationsJ wnere specifications is a 
segment will match any tixea point numoer which meet each 
speci ucatlon 03 a fielu in turn- A nxeo point number x wiJl 
meet a specification of the lorm (oits pattern* only if the 
nuinoer whicn is the oyte or x ueiineo oy olts matches pattern. 

Itielos ((bits 3. U*> 4) (loits I. 3a*J l)> will 
match a rixeo point nuwoer whose lower J* bits are 4 anj whose 
sign bit is on. 

4.3.1,2.4 List Actor* 



Ait expression ueliuiitno by M C" anu ")" wiji only baton d 

list* 

4*d,I^«3 vector ana Tuple Actors 

An expression aellmiteu by M l" ana M J M will only »natcn 4 
vectur or a tuple. 

4.9.l,*:.o Algebraic Actors 

ti>Jrt terms rest-ot-termsJ where terms is ui type segment 

will inatcn a sutl ot terms such that the rest or th« tarms matoi 

the pattern rest-ol-terms. 

Us isuo* a b V7J) (* c D ail Is true. 

(prog (y z x) 

(is (sum let vnon c) $~zl S-y S*-xJ (+ c 
b a) J) 

l gets the value d 

y gets the value c 
x gets the value a 

(prog (y x) 

Us (sum S~y b 5-x) ( + I c o a))) 
y gets the value I 

x gets the value (+ o c) 

(SJM-Of term sum J will match &r\y sum ot terms that match 
tne pattern term such that the sum of such terms matches the 
pattern *»um. 

( prog (y) 



Us isuiG-oi Iproouct x Hit 4-yj ( + (* J 
y gets the value 1* (*■ x a) (* 3 xJJ 

VKrtOyucf iacturs rest-or-factors> where lactors Is 01 

type segment will match a prouuet ot lactors such that each 

idctur irtatcnes a pattern in factors end the rest or the lactors 

match tne pattern rest-oj-tactors. 

Us iproouct b b a (* c o b); is true, 
iprog (x y) 



lis \proauct let (nun/ &*-x) *-y 13)) (* 



(♦ 2 a) J a))) 



x gets tne value 3 

y gets the value (* 2 a) 

tprog (xJ 

Us Iproauct J i^x l> u>> 

x gets the value U 

iFrtOUOOT-Ui- jactor prouuctl will match any projuct of 

factors that match the pattern ractor such that the proauct of 

such factors matches tne pattern prouuet. 

Iprog (x) 

Us iprouuct-or inon Wiuai)} s-x) <* a j 
b b.0>)) 

x gets the value I* o a) 

tKUrthK base exponent) will natch an exponential. 

tprog (x yJ 

Us (power &-x »-y> <** y ^)J> 
x gets the value y 

y gets tne value 2 
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iprog (x yj 

Us tpower *-x s-y; uit 
x gets Lfte Value 

iprog (x yi 

Us tpow#r *-x »-y) I >j 
x guts the vajue I 

\prog (x y) 

tiS I power LuL tfiGn l; »-x / *^/j hi 
y gees tn* value u 

iCOfcUu^ lector terms r<*st-Jt-tdr»tis> where Uniis is or 
type segment villi matcn a sum wnere a tactor Lr*at natcacs thd 
pattern lector appears In several corns* 

tls isu.D <eoiMon x isuiu 3 a) W/>> yy (+ (* a *J y (* j 
xl) is true. 



tjtjjind quadratic 
(kappa 

(x ttxappa in d) ((Kappa <)> o) uxappa (>> c>J 
l sum 

< common 

(power $*x *J 

xet (non u) W.on (contains SSxJJ v*saJ/> 
< common 

ssx 

\dt tr*on ^contains $sx/> v$So>;> 
vet Uion (contains $>x>) l&scJJ/J) 

Inus if 

tprog mat specldlJal u\ cl J) 

Us 

(quauratic 

lactur (kappa () *-a|Jj 
\actor (Kappa I) s-ol); 
factor (Kappa O i-cl)J/ 
(+ a (w j y) <* z (** y <£) 4) (* c y)>>> 

tnen 

aJ gets thd value (* 4 2) 
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ul gets tht* value i + c JJ 
cl gets tne value a 

4. j.s. txouipltis or the use or Actors 

Una rest 01 our examples ol the use oa actors will come 
irum giving a rigorous aerinition 01 the syntax or LlbH In 
WAiChLtSS. Iho&e reauers wno ore riot intcresteu in the uetaiis 
neeU not reaa section 4.D.*: The roliowlng grammar accounts jcr 
essentially all the context oepenaent jeatures dj tne LISP 
syntax. It specifies that a junction call must have the right 
number oi arguments. An explicit go must have a tag to which it 
can go. The syntax specifies tnat some identifiers are free and 
others are oouno. 



(define top-function (xappa t) 

(((<V> special) (tags ()) (bounavars ()))> 
(laifiboa tvariistj tformJ)))) 

Thus for example ttop- junction* will match < la moo a (> (>J. fhe 
actor top-iunction lntroouces the pattern Identiriers tags ano 
bounovors ano binos them to - - which is the null segment. 



(jeiine variist (Kappa <) 

tstar 
I same 

(( vatomic) curvar) ((< J> special ireeJ 
bounuvars}) 

5-curvur 
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I when ((Is (s-bounjvars) (sscurvar 
&>oouriuVars>} it)))) 



'Hid Victor varlist checxs each iuenti Jidr In turn to ifiaice suru 
Lndt it is an atooi ana then puts the identifier In oounaavars. 



CJeJlne 

lora Udppa (] 
lii 

(tdtuniicJ tvtfl tconstpnt; tvarJ)) 
t 

( lotoiMc; <i>) 
Ur 

Uprog *J» IprogrorfliJ J 

((tond <?> J t conurorm> J 

(<setq <?>> ((V) tvar> tiorm))) 

( (go <o ) tgciorffl) ) 

Ulhas (Csuor \?)))) <i>) ({?) <stdr Uorm/>)) 

(Uhas <(t*xpr \'ti)i) <?>) texprjonu/) 

(<ihas Ufexpr W)))i <?>> ilfi* 

(Uhas ( ( isubr r/J)U <V>) l?J) 

(((has (Osuor v?J))J <?>) ft?) <star tfora)>)> 

((ihas ((lexpr i't))ii <i>) (tVJ <star lform>>)> 

( 

iv; 

L5an« (exprJ *-expr iwrlte Usaxpr 
unoeiineu)))) ; > 

(((lambda <V>) <?>>) I lambda— junction^ > 

(it) (Worm) <star (form>> )) J ) J 

Ihti above definition says that 11 a fonn is an atoiD tlwn it must 
be a constant or an identifier* n Its first element is an atoai 
then ll It begins with the atom prog» then it must oe a progform 
etc- * li It begins with u ((laihbda u than it roust be a lambaa- 
uncilunt atnerwise it must be d lonn followuu by a lornili^t. 
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I jeiine constant iK«ppa (atomic; I ) Wei t t ) lnum)j >) 
liid only constants are t v (), ana numbers. 



(da tin a 

var ( Kappa ( atomic J () 
tsame 

(( (atomic) curvar) ((<?> special rree J oounuvars) > 
>-curvar 

Ival 

i when (lis t <?> 5 & curvar <*>) t S^bounovars) J J / 
(write (»*curvar unoounu>>;)) 

An laentl liar Is eitner in boun^vars or It 1$ unbound. 



(derine tonororm (kappa (> (conu <star (<star (rcrmJ>>>H> 
( deilne 

progipr© (**ppa () 
(same 
( 

((<?> special lree) tags oounuvars) 
{(<?> special) 

(tags ($J>tcjgs)> 
( locaitags U) 

(bounflvars (**bounuvars) ) i J 
I prog 

(varlistJ 
<et 

(collect-tags) 

(whan (Us U-tegS) (SSlucaltags ^tags>JW 

(star (or (atomic) irorm )))>)) )) 
un entrance to progforin tags ano oounuvars are reuouno to tneir 
previous values, 'ihe prog iuentiriers oi the prog are put in 
bounuvars, the tags in the prog are put In tags by collect-tag:*, 
ana tne uoa/ oi the prog is checked to see ir it is well ioraieu. 

COllcct-tagS (Kappa {) 
\5toT 

Ivwi 



***>J ptiQd lj 



isacfie (datoniic) curtagJ ((<?> special) 
locdltuys )) 

* M curtag 
\when (vis (<V> sscurtay <V>) 

(write (multiple Ug ^Vcurtag);) 
((Wocaitags) <$$curtay 

t*»JJJ 

( aeiina 

trXfJflorai (Xdppd ( J 

i same 

<args lambaavdr) 
( 

lhas Uexpr (lamboa &~iaiLDjavar <2>)J]J 
<et (star tfortt>} &-arg5>) 
When (Us isame-num) (**lamuaavar **args)> J )J> ) 

An expr lorti is a call to an expr with tft* correct number of 
arguments. Note that Immediately inside the <*ctor exprioroi the 
iaentliierss args anu laiuboavar are oouno to tne pseuao atom 



tJfl line 

sanie-num (kappa ( > 
wci 

(() (J) 

tsarae 

((<?> a o>) 

(t!) s-a) <(?) 5-0)) 

twhen (lis (saine-num) USSa) ( s$b))J J ))> ) ) 

Ine pattern isaoie-nuoi/ wili inatch any list witn two elements 
proviuea that the elements ootn hdve tne same nuinuer of 
elements, ror example it will inatch any of the loilowing iUts* 
(()(]), {(d)(bl), ((I nJ Ua I )). 
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(Jit line 

goiorm Uappa ( J 
(go 



( XdtOiIilCJ 

vsame (curtag C C <V > special irae) tags) J 
t-curtag 

lor 

\4S5ign f</> sscurtug </>J 



U* tags) J 



iwritd (Sfrcurtag unaaiinto 

( iiorroJ **> )> 
A goiona is eitner an explicit call to go Lo a tag which >uust be 
in Sfctags or a computed go. 



(a* una 

lauioua- function (kappa ( > 
vsame 

(args iambdavar) 
( 

isaiu 

< 

((<V> special free) boundvars)) 

((<?> spacial) (bounuvors 
( 55bounavars ) )>) 

( latnooa 

let tvarllsLJ ^-lajioauvarJ 
Lforii})J 
<et vstar laorm)) t>-ergs>) 
Vvihen t (is (sanie-num; ( && iamoaa var Sfrargs) /))})) 

In a lamboa-tunction the buunu iaenU liars of the lambda must uu 

aJueo to oounavars ana tne lamboa-f unction nw&t h*ve the proper 

number ox arguments. 

The above syntax coulu easily be extended in saveral 

directions, hor example we coulu easily mouiiy it 50 that it 

h-ojIg accept typo declarations anu uo type checking, fha syntax 

01 MAIlHLcm coulo easily oe oeiinau in MATCnLhSa. 
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4.6.1 primitive hunctlons 

examples of the values or various expressions are given 
balowi 

a evaluates to a 

(a b cJ evaluates to (a b c) 

{* $bh) evaluates to S&a 

1+ I iJ evaluates to 3 

(a b W 2 3)} evaluates to (a u d> 

(a o <" (a'bJ>) evaluates to (a b a d> 

lr a nas the value 3, then (l(>5a>J o) evaluates to 
([(3) J b) 

4.6.1.1 Control Primitives 

4.6. 1.Ul Single process 

I IS pattern expression/ is true only It pattern watches 
tne value oi expression. 

IALjoIuN pattern expression) is defineo only If pattern 
matches expression. The value ot the lunction "assign" is the 
value oi expression. 



tKHJO type oeclaration oooyj where the iuehtirier boay 
is 01 type styiLent. U control lalls through the uottoiii or Eha 
function prog then it taxes as its value tne value 01 the lost 
statement or the oouy. 

ii CO^UchU is o comment which will not uc seen by the 
interpreter or the compiler. 

tuo tagi will transfer control to the place umineu oy 
tag. 

tuu activation/ will restore the activation anj continue 
processing iron* there. A oeclareu tag is a local iaenti lier 
wmen nas as its value the activation oe lined by the tag. IJ a 
tag is oeclareu, it must be ueclareu in the oluc* nead of tne 
block in wnich it is a tag. ine following expression will read 
in tne currently open rile ana return thtr elements 01 the rile 
in reverse oroer as its value. Ihe Junction my-reao transrers 
to its argument when it reaches the enu 01 file* 

Iprog ((<?> (value ()))Uect) eno-oj^ iile)> 
ll the segment ioenti liar value is 

initialized to the null segment and the activation ena~o*3- lilt* 
is dennea oy the tag oelow) 

again 

lassign (lvalue) (Imy-reaa S&ena-of- 
lileJ *$value)J Is H there is another expressun in the rile 
then put in value else go to eno-or-Iile) 

tgo again/ 
ena-or-llla 

(return ( >^ value) > ) 

tr ( -HjMr- x) will leave the current oloctc with the value 
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tCAlT x> will leave the current function witn the valun 
x. 

iCAIuii x pt will attempt to evaluate x* 11 an error 
occurs in tne evaluation then tne value of the function catch is 
tne vaiu* of p. Otherwise the value of the junction catch is the 

value 01 x« 

\CASt type n Or expressions) where the loenti jier 
expressions is ol type segment will return the value of the nth 

expression. 

lease 4 of a b c) evaluates to D 
tHULh type J-OH X clauses) will give a rule for the 

expression x. The value of x will Oe matched against tne rlrst 
element of each clause until a match is lounu* Ir there is only 

one elafflent in the clause then the value 01 the function rule is 

the value of x* Otherwise the value is tne value 01 the last 

element of the clause. 

(rule lor b <\Hx)>) evaluates to b 
(prog (x) (rule lor a t$-x (55x Wx)i)i 

evaluates to (a a) 

(rule lor c (o e)J evaluates to (> 
irtHILt preoicate expressions) will execute the 

expressions while the preaicatt* evaluates to true- It is 

equivalent to the lollowing* 

(FHOo () 
AGAIN 

(UONU 



( VNOT preuicatei 
iKbiUWJv ())>> 
expressions 

ibO AuAlNJJ 
ItMflL proalcdLa expressions) Kill execute the 
expressions until the predicate bucorcies true. It is equivalent 
to the following* 



tktfOu (> 
AbAIfl 



VCOHU 

tprealcate 
IktTUrtB ())>) 

expressions 

VUG AuMtO) 



iruti type declaration 

((INITIAL lnitidl) 

tbltP seep) 

(IhST predicate test-action)) 
bouy) 



wnere the identiriers initial, step, test-action, dnd bouy ar» 
01 type segment is defined to be an abbreviation lor the 
lollowlng wncre LOuk is a unique ganerateo luoel* 

vprtOo type declaration 
Intial 

LOOP 

tCOftu (predicate Lest-action IkIiTUkN <)))>/ 
oouy 

step 

<ou LOW) J 



Alternatively, we havu 



irOH type ueclaration 

(UMT1AL initial) 

(IbbT preolcate test-action) 

(LIS! item condition) 
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laThp step)) 
bouyJ 

Where tne lotdLlUdrs initial, s>tep, and ooay are oi type i?> is 

lUa trie far loo^ previously aescribeu except that the vdlue oi 

the lor statement is the list of all tne ite*ns sucn that 

&-»couoition is true, it is equivalent to the following although 

it is iiDplerauntec mucn more efficiently because it only uoes end 

cons for each item in the value. 

\KhOu type (Declaration CUpr) <COLLeCV£b t>))) 
l» declare CULUUTcb to be an s- 
expression initi*ii2ea to nil) 

initial 
AUAiiJ 

(OONb 

(predicate 
test-action 
tfrcTUKrt &$t:OLLtCIfcD>>) 
bouy 

(CQND 

(coikJi tion 

it aua item onto the eno oi 
COLLbCTcD if conaltlon is met ihe function "iaenti ty* is the 



Identity function/ 
COLLtCltb> item)))} 



(ASblON S*COLLtCItu (<S5 



step 

1UO AGAIN); 



in auutlon to oemg able to list the elements proouced we can 
appeno or concatenate thero. 

US theta) is the value of the iaentiiier which is tne 

value 01 theta. 

tprog ((Uiix) common) <x 1 )) (y x>) 

t$* $fiy)> evaluates to I 



t.o.i.l,^ duln-Hrocess 

uiten it is convenient ana niora etiicent to have muro 
liian one MAlCnLc^b process in existence at one time dy a 
process we mean a program counter together with a stac*. 
Primitives are neeuea tor the loilowing runctions* 

I* Creating processes 

^s Causing them to run 

3i destroying processes 

ICrfcAlt x) will create a new process which will oegln 
execution with the runction caii x. 1 he value o: the function 
create Is the name naoie of the creates process. 

(PARALLEL naa»e xi will start the namea process with the 
execution of the lunction call x. The calling process will 
continue to execute the other arguments of the lunction In which 
tne call to parallel is maoe. The value 01 the function 
parallel is the value ot x. The named process will be destroyed 
when it returns ana. the returned value will be useo as an 
argument. Ihe Delimiters !( ana )j can be useo to aelioiit 
pararelles calls xor elements anu !< and >! can be used {or 
segments. ihus in the loilowing expression the sum of 3 V Is 
computed at the same time as the sum 01 7 anu yi 

th !v+ j 9)1 U 7 9)i 
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vriuuMc name XJ will resume execution oj the ndiQuu 
process irom the point that control last iejt it and buspund 
uxecution 01 tna calling process, The value 01 x is maue the 
value of tne call to the junction resume which causea control to 
leave the named process* expressions of the lorm trtfcoUMt name; 
are used to start new processes* r*or example (resume (create 
i loo 2 a}>) will cause I loo 2 a) to oe executea in a new 
process* 

(f-DHK name x> will resume execution of the named process 
Irom the point that control last le It it and continue execution 

o; the calling process* The value ol x is made the value the 
vaiuH o] the call to the function resume which caused control to 
leave the naiiisu process* The valutf ol the junction for* i* the 
value of x. fcxpressions of the fono (1-OttK name; are used to 
start new processes which will run in parallel with the calling 
process. For example (fork i create t ioo (oar: a)> ) will cause 
tfoo (bar) a) to be executed in a new process in parallel with 
the calling process* 

(bid naoie) will cause the nameo process to be destroyeo 
ana return the name of the process nilleu. If no argument is 
given the process which executes the call will die. 

(HASSON name x> will RbSUtfc (see above) the named 
process with the value oi x. The process which calls the 
function passon will then oie* 

vLuCK locations) where locations Is oi type segment will 



dLLempc to loc* the locations which ara arguments. The process 
which calls the junction lock will be suspenuec until all tnu 
locations are lockea. 

ILuC&tU? locations) where locations is o; type segment 
will attempt to locx the locations which are arguments. li tne 
locations cannont be lockeo then the lunction locked? will 
return (J. 

tUHLCCK locations; where locations is 01 type segment 
will unlock the locations* 



4.6.1. * Data structure Primitives 



4.6.1.2.1 pointer t-unctions 



(TYPh expression) will return the aeclareo type o] 
expression. The lunction type is usu.ul In macros to decide 
how to expano the macro. 

\KIrtU identi UerJ will return the Kina of identi Her 
that iaenti aier has been aeciarea to be. The kinos of 
1 Jenti t iers are local, special t ana comion. 

ttO x y> is true only if the Value oi x Is laentical to 
the value of y. 

tfuMtflON lamoaa-expression) will return the functional 
argument of lamoua-expression. 
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Uiunction (iaradda O j)>) evaluates to j 
lACTuk Kappa-expression* will return the actable 
argument 01 ***appa-expre55ion. 

Us ttactor Uappa <) 4))J 4) is true 
LA! n x> will return the location of the tub nth element 
or x. 

(assign [<? I> (replace a) <i>} (aa uo ccJJ is 
equivalent to (setloc tat k 1 aa uo ccj) a) 

UN location) will return the contents of £$]ocation as 
its value. 

tprog (fix) (((fix) (x 1))) (in t**)) will 
evalutate to I 

tbcTLoC location value) will store the value in the 
location and return the value* 

(prog (fix) UUiXJ x>) tsetloc 5"x I); will 
assign x the value I 

(NTH n expression) will return as its value the nth 
element or the value oj expression which must be a list, a 
vector, or a tuple. tWIH n expression* may be abbreviated as in 
expression^. 

13 (a o c)> evaluates to c 

ik I a (o c) a]) evaluates to (u c). 
IHEAh n expression} will return as Its value the nth 
element or the value of expression troro the rear- 

(rear <: Ca b c>> evaluates to b 



-■ 
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(rtcai x n> will return as Its value the result of taxing 
tne rest or x t* ti^es* 

(rest U 4 d ij ^^ evaluates to (u fJ 
LbJILAbf x n^ will return db Its value the result of 
taiclng the outlast or x n times* 

(butlast la 4 a t) *) evaluates to (a 4) 
WNI'ilAL n expression) will return as its value the 
initial n elements ol the expression. 

(Initial 3 (a b c d)J will evaluate to (a o c) 
ileMMlhAL n expression) will return as Its value tne 
terminal n elements vt the expression* 

(terminal J (a t> c o)> evaluates to (b e a) 

(LtNOlH x) will return the length o] the value oi x. 

(length (a c)> evaluates to 3 
IPaiMT x) will print the pointer x. 

(odbbliruib x pattern z) will substitute the value of x 
lor all expressions In z that mat en pattern* 

(substitute a (atomic) (1 (x z)>) will evaluate 
to (a (a a)) 



(uefine substitute (oinalanibda (<x ((") p) O oJ 
(subst x (val igenoraces actor Ixappa O 

Sip); *Sl>> z>>) 



(cefine suost ( lamooa (x (t kappa I) (}}} pJ 2) 
iconu 

(Us t*$pJ $$z> 

((is (atomic) S$z> 
5*4) 



(t 

(Isubst ssx $&p u ssz>/ 
<suo5t $&x $Sp irest $5£>> )>>)) 

4*o#].£»£ Atoiu ana Property List runctions 

\OnT atom indicator) will return tne value unaer 
indicator ror atom ii such exists, otherwise it returns ()• 

WOT atom inalcetor value; will put value unaer 
indicator for aton*. 

4.0,1.2,3 rtora ana Number functions 

IMXCONS n> will return a pointer to a Uxed point 
number equal to n. 

iflxcons W evaluates to a pointer to 9 
IFL0A1C0NS ni will return a pointer a floating point 
number equal to n. 

tlloatcons V.o> evaluates to a pointer to V,u 
It-IXIN p) will return a lixea point number equal to the 
nuiiiber pointeo to by p. 

tfixin (<■ V>) evaluates to the fixed point 
number 9 

if- L0A1 IN p> will return a floating point number equal to 
tne number pointeoto oq p. 

I lloatin l« WO}) evMuatesto the lloating 
point numoer 1 .0 



tbllb s p) will aeilne a licla or 5 oits that i =* p biLii 
iroid the right eno ol the wora. 

tLOAb oits U will return an integer which is tne byte 
of 1 wnich is oetinea oy bits. 

Uoau \oits I. te.J -U will loau the sign bit 
01 -I wnich is I 

IDfiROSIT bits source Destination* will oepjsU the 
source in the byte of the destination aenneo by oits ana 
return tne mouUieu aestination as its value. 

taeposlt (bits t ui 4) evaluates to t> which is 4 
with the low order bit turneo on. 

tHXPrtlril xJ will print the Hxeo point number x. 

It-LOAIPHIM x> will print the .looting poiut number x. 

4.6.1.2*4 List ru net ions 

Any expression enclosea within M ( H ana u ) u will evaluate 
to oe d list. 

4.6. I. i.b vector ana Tuple Functions 

Any expression enclose© within "[" and "J" will evaluate 
to be a vector, un the the other hano, n expression enclosea 
between "l u ana "1" will evaluate to b* a tuple. The only 
oijlerence outeen vectors ana tuples is that tuples are strorea 



in tne stacic while vectors are garbage collected. 

tVcClOH n template IcnJ will create a vector of length 
tne value of n with entry i Initialized to (fen U. ine 
expression template spaci lies the mark function ana the print 
aunctlon or the vector. 



(vector 

J 
(template 

(function I lambda <i>) 
(function (lambda (Ualx) l> xJ 
ifixcons (at s$i $4x)>J> 
(function (lamooa Mix) (((jix> D) 
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will evaluate to (I <; j). Given a location 1 as its argument 

the Junction ilxcons will return a pointer to a iixea point 

number which has the sane value as the contents of 1. 

UoHLfc n template len) will create a aefinite tuple 01 

length the value oi n with entry i initialized to ( jen 1>* A 

definite tuple can only be created as the initial value oi an 

identifier in a Declaration, as an element oa a aefinite tuple, 

or as an argument to a junction. 

UNDEHNITfc template aeclaration 
((INITIAL initial) 

(TfcSl test Jinal-action) 
(ALU element conoitlonJ 
CbTbP step)) 
bouy) 
Will create an inoeunte tuple with template by setting up a tor 

loop in which tne elements oi the tuple are generated element oy 

element such that condition is met. A** indefinite tuple can 
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only be createu as the initial value 01 an identifier in a 
ueciorution, as an eleaient or a ueunlte tuple, or &s an 
argument: to a junction. Aj» inuefininte tuple is o gcoa way to 
pass arguments which are g&nerateo incrementally at run time. 
No tuples til ay be ueclamu in the declaration. 



\ inaerinite 

Uixs/ U thtt tuple is 01 type "lixs" 
wnlcn is a tuple 01 lixea point numbers) 

<UMx> <1 IJ)> U uecidre i to 
be a ixxeo point nuoioer initialized to l> 

UUst Us vwi S^U) (1 ix n is equal to 
i, tr-en we navu createu our tuples 

(aati $$i) ii eacn tl»e through the loop 
dOa tnu value of 1 to the tuple; 

(step (assign s*i 1 + &&i \)> ti after 
executing the boay or the loop) increase i by I)}) 

v( the fcguy gi the Iwp U ewpty J> 

will evaluate to 

itl 2 J 41! it the identifier n has the 

VdlUb 4 

iUNSHAHt x) will create a copy oi the value oi x at the 

top level. The value of the function unsnare will oa equal to 

its argument but it will not tie eq* 

lunshare CI x Cy 2.U)Ji will evaluate to (I x <y 

iprog (((vec) Ix id C4J J))) 

i*H U S&xJ U (unshare $»x}J» 
evaluates to true. 
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i.o.l .*!„6 Alyebraic 

LAOD terms} where terms Is or type segment will product* 
b sucu oi me aiyebraicily simpliilea terms. 

taUO I* (** X i) J) J {* I x) (* 4 X> 4 tw* x 

<>)) evaluates to 

<+ / C# 6 xH* b (** x <>)) 
tMOUIMJf ractors) where lectori Is oi ty^e segment will 

multiply together the algebraiclly simplifiea factors. 

tibultiply J (+ x 2) C+ x -2) xJ will evaluate to 
(+ (* J (** x JJ) (* -12 x)J fl.6.-i fcxa,nple& oj 

tne Use of functions 

Ihe junction tectorial is oeilnea oelow in oruer to 
illustrate the syntax or functions that produce values. The 
program shoulo almost be sell explanatory to any LISP 
programmer. On entrance to prog, temp Is Immediately bound to 
i. 



(jefine lactorial 

(lambda ulx> (UtaixJ n))> tprog (fix) (UflxJ (Leap 

again Icona (us (less d) &$n> 

texlt s&teinpj }) 
Cassign $*temp t* $vn 5Stemp>J 
(assign s*n I- &$n I }) 
tgo again)) )J 

Using a ror stottsiiient , we can oerlne lactorial as iqIIqwsi 
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(j^tijiu tectorial 

(IdiODub ilixt <<Urix> n) >) 

liar Ulx> 

(Ufix* (tduip I ))) 

((t«tst lis {less £J feiiJ iretum 

(step Ussign b-n t- *=>n l/J>J 
Idssign $*-teuip t* £$n &>teiiipJ)J ) J 

ihus the Value 01 \ lacturiol 3) is 01 ana the value o] 

Irdctorial 1+ ^ 2>v is c- 
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4.7 MUM OLE 



Section 4.7 is logically completely separate from the 
rest oi the language. It is not necessary to reao this section 
to understanu the rest of the aocuinent. 

fcUwdLh is a proposed blue* structured asseraoier ror 
HAICttLtSS which outputs relocatable oinary. It a process 
encounters an undefined function or actor then it searches its 
aremve file for the most recent version of the lunction or 
actor. li the search succeeos then the process calls the 
loader to loau it ano continues execution, lhere are two ninos 
of ioentiriers that are allowed in the language. Ine first Kind 
is declared In olock heaoers ano the value is ootoineo ny 
prefixing the identi Her with the character '. Ihe second Unu 
is defined by appearing as a tug ano the value is ootalnea by 
prefixing the identi lier with the characher I. 

4.7.1 commands 



4.1. I. I Control Structures 



Qiiiir.anjj 



(wJMDLc name forio type argument-types declaration bo-jy) 
wnere oody is oj type <i> will declare a top Uvel named bloc*, 
'ina allowable lorm types are lambda ano Kappa. 
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iuH.-aa/ naa*c oeclaration oojyJ where uooy is 01 type <t> 
will crduLtf a olocit 01 nomenclature with ruiine, Declaration, anu 
ouuy. 

Ic^iHY name Kina-oi- lor^ argument-types/ will ueclore «n 
entry point* The allowable kinus 01 forms are lAmpua, *AHtA, 

dHu ^ACrfO. 

LuO tag) will transfer control to tag. 

tl comuientj where conuhent 15 01 type <t> ih a comment. 

ibrUh name 

aeclardtlon 

((ItililAL initial) 
(ItS 1 ! test test-action) 

(S'iCF step)* 

booy; 

where initial, test-action dULA , ano step are of type <t> is the 

lor statement 03 the language, it expanus to the lollowing 

where UO is a generateu syraool 

lUHHUb declaration 

initial 
lAu 

vUtOWO (test test-GCtlonJ) 

body 
step 
VOO !Au)J 

luCONb clauses) Is the conditional statement, each 
clause is 01 tn« form (preuicate comifrands). 

iCAlX name return-type argument-types/ will create a 
Junction call to the named function- 
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4.7.1.*! Data Structure Commanas 

l* x) is the woro with the inairect bit on ano x In the 
rignt hair. 

il a x) is the wora with a in the index lield and x in 
the rignt naif. 

CM a x) is the word with the inoirect bit on, a in tne 
index iieia f ana x in the right hail. 

1= literals) is the wora with le it half l> ana right hall 
the aduress where the multlwora literal is storea. 

IWECIAL ioentijier type) is the address oi the special 
cell oi iaenti lier with type. 

iHATh path) where path is of type <?> is the location 
naineu by the path name, hor example (path a b> is location 
within Diocic a. 

InALvbb woral woroi) is the word whose iett half is 
wordl truncated to lo bits ano whose right hall is word2 
truncated to lb bits. 

(brtAP wora) is the word with left and right halves 

swappea. 

ILSHIH wordl n) is wora shl ited n places to the l*lt. 
iblXbll x) is a reierence to the slxbit chdracters x. 
tAaCI* x) is a reference to the ascii characters x. 
ibLCCK n) will allocate n woras of memory. 
I' theta) is the value oi the riUMoLE: ioenti jier theta. 
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vi theta; IS trie value 01 the MU«&Lfc t^g th^ta. 
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*./.£.! k rum Live rT*uicates 



in-e primitive prealcates are the condition* tnat can ba 
recognizee oy a Fbe-iu in one instruction, predicates are Jse^ 
tor i iow 01 control, lhere ore a great numour or primitive 
preoicates. hd villi only mention o idw. 

(t a x) is true it the accumulator a is tqual to the 
content or tna errective audress x 

(U a x) is true li the accumulator a is ftot equal to the 
content of the ejjective ajdress x 

(Ic a x) is true if the accumulator a is liuoeuiate tquul 
to the directive auuress x 

(1L a x) is true li the accumulator a is immeoiate Less 
to the (inactive agareas x 

(5Ah a x) bet the Accumulator a to tne content oi the 

selective aduress x anu tqual zero 

(bAN a x) bet the Accumulator a to the content or tile 

effective aoaress x ano Not zero 

4, /•<•<£ uompounj Hreaicates 
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luCOhb clauses) the conoitional preoicate. 

(UANU preaicates) is true it all or its predicates in 
turn evaluate to true. 

lUOri predicates) is true if one 01 its predicates in 
turn evaluates to true* 

iiiliffl predicate) Is true if its predicate is not true. 

tScU coranands predicate/ is true whan the predicate 
predicate is true a iter executing the commands. 

4.7.3 Macros in MUhBLE 

he can de line the macro cycle which is deuneu to cych 
the contents of three accumulators as follows* 

( je line cycle 

(macro (a b c) Uexch $$& Sbb) lexch 65b *fcc>)>) 

Thus 

\ u j rug () <cycle al a^ a3>) will expand to 
( up rog C > 

(exch al a2) 

<exch a^ a3i> 

4.7.4 bxamples in MUMbLb 
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tmumDle tectorial ioiuxjd itix) (Uix)j 
() 
VI th# argumej\t i( ls passeu on the tuple pdl tp An "aobjn" 
pointer to th«\tuple of arguments is passed in register ap) 
tpush up u} t; save the old u> 

\i..ovc u up) ii move the pointer to the unmariteu pul into 
u) 

luproy idet 

((rix 

(n (1 ap l>) 
(temp U u \) ))> 
Li deiine n to ue lnuexeo oi dp by I and temp to 

be inuex u by I . fie woula use lixeo point output to print out 
the value oi n anu tump In the MUMtfLfc debugger.) 

(push up (■ l>) 

li push the literal I onio tne top of tne 
unwanted pal thus estaolishing the initial value of temp) 
again 

lucona 

(iseq 

(move a / nJ u tuove n into 
register a ana then Lest ii the contents of a are less than £} 

(11 a *)/ 

(move a 'temp) U the value is returneo 
in a) 

(move up u) 

(pop u up) ti restore the umnariceu pdl) 

(popj up) t; exit the current function) 
(move a ^n) 
( imul a 'tempj 

(roovem a v terap) 
(sos u •'n) 

tgo lagaln)) ) 



(jiumble factorial iawbaa itix) (iiix)) 
(> 

luprog factorial 

((fix (n (i ap I> J)J 
(push up u) 

(move u up) 
tutor factorial! 

((rix (temp U u J) ))) 

((initial (push up 1= I))) 
(test 

(seq 

(move a ■'n) 
(11 a 2)> 
(move a -'temp) 



current iunction)) 



(tnove up D 
(pop u UpJ 
(pop J upJ U 



(step tsos (j -*t\) )) 
(move a y n) 

llmul 5 'teftp) 

(movem a ■'temp))} 



exit tfttf 
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Consiuer a statement that will match the pattern 
tlMHLIbS x y). The statement hds several imperative uses. 

st 1 1 If we can ueauce x, then we can deauce y. 

In HLANNbH the statement stl would be expressed as (ANTcCcOHNT 
() x (ASbfcrtT y>) which means that x Is declared to be the 
antecedent ot a theorem such that if x is ever asserted in such 
a way as to allow the theorem to become activated then y will oe 
asserted. 

st2i if we want to aeouce y, then establish a subgoal to 
first aeouce x* 

In HLANNbJt the statement St2 would be expressed as (CONSbUUENT 
i ()y (GOAL x) U55bRT y>> which means that y is Declared to be 
the consequent 01 a theorem such that il the subgoal x can be 
established using any theorem then the consequent y will be 
asserted. fte obtain two more PLANNbR statenents analogous to 
the above oy consiaerlng the contraposi tlve oi (iMHLIbS x y) 
which is U*U->U£S (NOT y) (NOT x)). 
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5*1.] Hierarchical Control Structure 

PLANhhfl uses a control structure in which the hierarchy 
01 calls is preserved so that a computation can back up to an 
activation through. which it has already passed. The primitive 
functions "Jail 11 and Mai lure? -1 enable the back track process to 
be controlled. The lorn. IhAlL) will generate a simple laiiure 
wnich will back up to the most recently executed lorai (rAILURt? 
expression (pattern body)...) such that the pattern matches the 
message of the failure. For example 

iprog (fix) ((WixJ (x 3)> 
( + 

(failure? *;>x (() (assign six 4))> 
(cono 

((is 3 S$x> (fall)) 
(t bJ»> 

evaluates to U 4 b> which is 9 

The iaenti Her X is aeclared to be a fixea point integer which 
is initialized to 3. hhen the second argument of the all to • l +* 
is evaluted the conditional detects that x Is bouno to 3 and so 
generates a simple aailure. The failure backs up to the call to 
"failure?" with the message "{)". The identifier x is assigned 
the value 4 ana the rest of the computation procaeas normally. 



The top level lunction ot PLANNEH is a reaa v evaluate, 
print loop, hhen the expression redo Is successfully evaluatea 
tnen the wnole hierarchy of calls is reset, the value is 
printeu. and the process repeats* 

9*1*2 PLANNEK functional horois 

*Lt\* Junctional lorms in PLANNER are thlatnbda (which Is 
tne analogue ol lamboa) ana thfcappa (which is the analogue 01 
kappa). The syntax remains exactly the same. The sole change 
In the semantics is that tne functional forms 01 pLAXNEtf can 
handle the mechanism of failure. 

Tho following example illustrate* th<* syntax oj 
functional forms. The function "among" wnich is ae lined below 
Is a generally usefull PLANNED function* The particular way in 
which the function among is useo here does not accomplish 
anything that cannot be done easily in LISP, ne give this 
example because it is simple enough to Da easily understood* 
The next example after this will give a problem that is more 
difficult to solve in LISP than in PLANNEH. One way to assign 
to the identifier x the value which is the first element of tne 
list Mi that is greater than b would oe Us <<V> (et Six 
(greater «x b>> <?>) *$1>. Another way wouia be iis 4*-x 
(larger b I among ss 1 > )) where 



(oeiine among (thlambda (t<?> D) Uhprog (first) 
again 

( thconu 

(lis <$*1) ()> 

(i if 1 is empty generate a simple failure) 
trail)) J 
(assign ($-first $-1) ($*1)> U set ilrst to be the 
first element of 1 ana i to be the rest of 1> 

(failure? (return $$ first) 
<() 

(1 If the return fails with the message 
"( ) a then go to again) 

(go again) J )> > J 

Cdellna larger (thlaniboa (o a) 
(thcona 

((greaterp $$a S&b) 

(1 if a is greater than b then return a) 
68a) 
(t 

(l otherwise generate a lailure with the 

message ■( > M ) 

(fall ()))>) 

Thus the value ol (greater b (among (2 4 6))) is 6. 

The following is an example of a problem that is more 
ainicult to solve in LISP than in PLANNtR. The example is 
slightly artificial Because we have not yet Introduced enough oj 
the PLANNER primitives to give a more natural example. The 
problem is to Una the lirst repeatea atom in an s-expression. 
For example "g" is the lirst repeated atom In <tw y z) ((a gJ u 
q) (g q)J. The MATCHLbSS pattern (<contains <et (atomic) $~x)> 
< contains $$x>) wl 11 set the variaole x to the lirst repeated 
atom* ho will oeflne i lirst-repeating-atora 1/ to be the lirst 

repeating atom of 1 i i one exists. 

(define lirst-repeati rig-atom 

(thlambda (1) (thprog (((?) special) x> 



I thcona 

(trina-x) «*li d il we find an x then 
return it) 

(return 45x>) 

(t (i otherwise* generate a lailure with 

tne message "( )") 

(fail <)>Hi) 

(define tind-x (thlambaa (1) ithprog (answer U?) special) X) 
(thcona 

(Us (atomic) $51) (* il I is atomic then assign 
x the value U 

(assign S**x &4l> 

(return ()))> 

i railing? 

(O (I il we are tailing with the message "(>", 
then try again on the rest of i) 

treturn (lina-x (rest »&1J>}>} 
(assign S-answer (fino-x (lirst $*l))) (s find an x in 
the lirst of 1) 

(thcona (Sianswer (return SSanswer))) 
(return (within &Sx $sl)}>)) 

(oeiine within (thlatnbda (y i) 

(I the value of "within" is true only il y is an atom 
within 1J 

(thcona 

((is (atomic) 541) (i 11 1 is atooac then it 
roust be y) 

(is 4$y $$!)) 

((within SSy (lirst *sl») d if y is wthin the 
first of y then true) 

t) 

(t li otherwise y must be within the rest of U 

(within SSy (rest S&U))))) 



5.1,3 PLANNEh Theorems 

The following three kinds of tneorems are the ones which 
are presently oelinea in the language lor satisfying requests 
made in the body of proceauresi 
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b. 1 .3. 1 Consequent 

(CUNSfcLJfcNT type declaration consequent DouyJ declares 
that consequent Is the consequent of a theorem which can be used 
to try to establish goals that match the pattern consequent, 
nnether or not the theorem will actually succeed in establishing 
the goal depends on the body* Typically tne lirst action that a 
theorem of type consequent will take is to try to reject the 
goal. fte cannot emphasize too strongly tha importance oi 

analyzing the consequences o: goals in order to reject the ones 
which cannot be achievea. Even if no dbsuraity is detected, tne 
consequences ere often just the statements that are needed to 
establish the goal* The only way that a theorem that begins 
with the atom consequent can be called is by the function 
(ACHIEVE pattern properties recommendation) which is explainea 
below. The following theorem says that ii it is our goal to 
prove x and we Know that w Implies x than we should make it our 
goal to prove w. 

(consequent (x w) S?x 

tprovea? (Implies S7w *?x)J 
(goal S$w)) 

5*1.3*2 Antecedent 



(AiJTtCbDbM type declaration antecedent body) declares 
tne onLecddent 01 a theorem from which conclusions may oe urawn 
Dy the body. The theorem can be useo to try to ueuuce 
consequences from the lact that a statement that matches 
antecedent has oeen asserted. The only way that a theorem that 
begins with the atom antecedent can be calleu Is by the junction 
(UriAft statement properties recommenoation) which is explalnea 
below. The following theorem says that if we assert something 

o] the (orai (not (implies X V)) then we shoulo deduce X* 

(antecedent (x y) (not (implies *-x 6-yJ) ^assert 5$x>) 
The loliowing theorem says that if something of the form (marry 
x y) is asserted then (bachelor x) shoulu be erased, 
(antecedent (x y) 

(marry &-x $*-y) 

(erase (bachelor $5x> ) ) 

5.1*3*3 fcrasing 

(ErfASING type Declaration pattern body) can be useo to 
try to deduce consequences irom the fact that a statement that 
matches pattern nas been erased. The only way that a function 
of typo erasing can be callea is by the function (CHANGE 
statement properties recommenoationJ which is aelinea below. 
Ihe loliowing theorem says that if something of the form (alive 
x) is erased then (dead x) should oe asserted. 



(erasing ix) 

(alive 5-x) 

laSSBrt (aeau 5>x>j) 



t>*2 Primitive junctions 



5.2.1 bata Structure Primitives 

Some 01 the functions in PLANNER are listea below 
together with briei explanations 01 their function, txaraples of 
their use will oe given immediately alter the definition ol the 
primitives below. The primitives probably cannot be understood 
without trying to understand the examples since the language is 
highly recursive. In general PLANNbR will try to reiueinoer 
everything that it is doing on all levels unless commanded to 
forget some part of this information. In the implementation 01 

the language special measures must be taken to ensure that 
identifiers receive their correct oindtngs. Ihe most eaucient 
way to implement the language is to put pointers on the stack 
Dacic to the place .where the correct bindings are. value cells 
ao not proviae an efficient means of implementing the language. 
The oeiault response 01 the language when a simple failure 
occurs is to back track to the last decision that it made and to 
mafce another choice. 

5.^.1 * i Assertions 



tUrlAh statement properties recomaienaation) wi 11 cause 
HLANhtK to try to araw conclusions from the statement with the 
properties using the rccommenuation to try to fino an antecedent 
theorem (antecedent type declaration antecedent ooay). The 

value of the Junction araw is the value of the anteceaent 
theorem that craws conclusions iroji statement* A recommenoation 
has the form (THY theorems) or (USb theorems). The 
recommenoation (try th-J thl th5 t?J) means that th3 t thl % and 
tnt> are to be trleo in turn ana then the theorems whose 
antecedents which most closely match statement are to be tried. 
The recommenaaton (use th3 thl (and (not (th7 thb)> (has 
(dijiiculty 9)1) means that unless conclusions can be drawn 
using th3 f thl, or some theorem except for th7 or th& *hich has 
the difficulty 9 on its propery list, then th« function oraw 
will generate a simple lailure- The recommendation (try $-x) 
will try any theorem which can possibly match the statement and 
will bind the identltier x to the name of the theorem which is 
used. 

(draw (subset a b) () theoremb) will try to draw conclusions 
from the fact that the set a is a subset oj the set b using 
tneoremb. Suppose that we are Keeping a global count of the 
number of assertions of the form (subset x y) in the global 
ldenti Her count. 



(ae line theoremb (antt*ceaent 

(x y (Ciflx) comn.on tree) 
count)) 

(subset S*-x S-y ) 

it x ana y are locals, count is a glob*] 
tixeo point number that occurs jree In theorem^) 

it the antecedent oi theorems is 
"(subset 5-x 5-y)»> 

(l the following statement will adu one 
to count) 

(assign Mcount t+ SScount I))} 
lASSbHl statement properties recommenaation) if the 
statement has already oeen asserted then the junction assert 
acts as the null Instruction* Otherwise, the function assart 
causes the statement statement with properties to oe added to 
the aata base. Then tbRAH statement properties recommendation) 
is evaluated. If the recomroenoation 01 the draw statement fails 
or i l a lower level failure bac*s up to tne assertion then 
statement is removed iron, the oata base. I I the null 
recommenoation is maoe then the value of the Junction assert is 
the header of the assertion stored in the data base. Otherwise 
the value oi the function assert is the value of the araw 
statement that it executes, 

(assert 

(subset a o) 
((difficulty trivial))) 

will assert that the set a is a suoset of the set b and put the 

value trivial unoer the inaicator difficulty, fcxpressions of 

the form W oeclaration alternatives) where alternatives is of 

type <?> will aenote &a assertion with variables aeclareo and 

logical alternatives, ne shall us* M « M as a preUx operator to 
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denote variaoles in the quantlflcational calculus. he would 
like to emphasize that the syntax for variables In the 
quantif icational calculus is not related to the syntax of 
PLANNfcK, for example 

(assert 

(v UtseU ix ty t*)j 

{not (subset ix iy>) 
(not (subset <y iz)) 
(subset *x i2)))> 

will assert In declarative lorn that the subset relation Is 
transitive for sets. The function M v" Is logical disjunction 
for clauses. 

tASSfcRTJ statement properties recomraenaation) Is like 
tne function assert except that If statement has already been 
asserted then it will generate a simple failure insteao ol 
acting as the null operation. 

(PERMANENT statement properties recomraenaation) is like 
the runction assert except that statement is left in the data 
base even li a failure backs up to the call to the function 
permanent. 

(IcMPOkAhV statement properties recomraenoat ion) Is like 
the function assert except that statement will be withdrawn if 
everything succeeos in the enu. In other woros statement Is a 
temporary result that wijl go away after we solve our current 
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over-all problem which is the top (dost call to the evaluator- 
b.2. I .2 brasures 

tCriAhob statement properties recomnenuat ion) is uswo to 
try to deduce conclusions irom the fact that statement no longer 
hoiui using a tneorem 01 type erasing (tfcASINC type declaration 
pattern body). The function change is exactly analogous to the 
(unction araw, 

lEHASb statement properties recommenaaton) will try to 
find a statement in the uata base that matches statement with 
properties. It such a statement is found then it is erased ana 
tCHANGb statement properties recontnenoation) is eva luateti* 
Otnerwise the function erase acts as the null statement. 1] the 
change statement fails or it a lailure backs up to the iunctlon 
erase, then the statement that was originally erased is restored 
and the whole process repeats with another statement irom the 
aata base. If the null recommenoation is made then the value of 
the Junction erase is the heaaer of the statement erased. 
Otherwise, the value is the value of the theorem that is used to 
araw conclusions from the lact that the statement was erased. 
The function erase is a partial left inverse of the Iunctlon 
assert. 

lerase (on-top-of briclcl brick2)) will erase the fact that 
brickl is on top of orick2. 



itHA&bl statement properties recoiaaenoation) is li*e tne 
runctlon erase except that it statement has not bevn provea then 
it will generate a simple lailure instead of acting as the null 
operation. 

tfcHMhhASb statement properties recommendation) is like 
the function erase except that ii a failure oacfcsu up to the 
function permerase then it will not put the statement bock in 
tne oata base. 

5.2.1.3 Goals 

(HROvbU? pattern old-properties new-properties) tests to 
see U a statement with glo-prppert ie5 U In the oata baset 1 2 
there is such a statement, then the identi jiers in the pattern 
are bouna to the appropriate values ana new-properties are 
installed as new properties ol statement in the data base. Ii 
there is no such statement, then a simple failure is generated. 
I] a simple failure backs up to the lunctlon proved?, then the 
identifiers that were bound are unbound and the property list is 
restored to its previous state. Then the whole process repeats 
with another statment in the oata oase* PLANNbR is designed so 
that the time that it takes to determine whethwr a statement 
that matches pattern Is in the data base or not is essentially 
independent of the number 01 irrelevant statement* that have 
alreaoy been asserteo. A list coordinate is ae lined by some 
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atom being in some position, fthun an s-expression is asserted 
FLANNEk remembers every coordinate that occurs in the s- 
expression. Two expressions are similar on retrieval only to 
the extent that they have the same coordinates, fthen the bucket 
under some coordinate exceeds a threshold then the bucket is 
suo-oiviaea by taking the coordinates by pairs. The only 
reason that we don't store statements unoer all the possible 
combinations oi coordinates is that we can not afford to use 
that much space. If MATCHLb5S had an efficient parallel 
processing capability then the retrieval could be even easier 

since we wouio do the look-ups on coordinates in parallel. The 
value oi the funcion proved? is the header 01 the assertion that 
matches statement, 

(proveu? 

(subset a b> 

(tdiillculty trivial)) J will succeed 
only if it has been proved that a is a subset o3 b with the 
value trivial under the inalcator dilliculty. 

(INSTANCE? pattern old-properties new-properties) is 

like the function proved? except that the function instance 
looks lor a statement that can be Instantiated to match the 
pattern. rte will use '**" as a prefix operator to denote 
variables in the quantif icational calculus. Ihe syntax that we 
use lor variables in the quanti ilcationa 1 calculus is unrelated 
to the syntax that we use lor the variables of PLANNfcR. 
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given* 

lassert 

Iv UvobJectJ *x) ((set) *y *z>) 
(subset (I *x) *y) 
(subset ty iz)> 
<(ai iflculty horo))J 
The above statement says that lor all objects x ana sets y z 
that (f x) is a subset of y or y is a subset of z. evaluate! 

Unprog ((iset) w u) i 

(instanceV (clause (subset 5*-w $**u))J 
evaluates to ((clause (((object} ix)) (subset (1 »x) (i *x)>) 
ai iliculty haro) 

K gets the value (f <x) 

u gets the value (l *x> 

Suppose that we xnow that a is a subset of b or 
a is a subset of c. In other woros he assert (v () (subset a b) 
(subset b c)J. evaluate* 

tthprog (((setj x)J 

(Instance? (clause (subset a $— x))>J 

x gets the value (either b c) 

In other woros x is either b or c 
(ACHlEVfc goal properties recommendation) will attempt to 
achieve goal using a consequent theorem (CONbfcUUfcNT 



declaration consequent booyj with accoruing to recomtfldnaation. 
The goal mjst match the consequent. 

IGGAL pattern properties recommendation) the lirst thing 
that the function goal aoes is to evaluate (HRGvEuV pattern 
properties). if the evaluation produces a jallure then the 
value o] the function goal is tACnlbVfc pattern properties 
rec omme nua t 1 on ) • 

given* tsuoset a b) 

evaluate* (thprog (((set) x y>) 

(goal (subset S-x $-y>)) 

x gets the value a 

y gets the value b 
(UOALS) returns as its value a list 01 the currently 
active goals. 

5.2.2 Control Structure Primitives 

iTHVAL expression Dinaings state) will evaluate 
expression with bindings and local state. At any given time 
PLANNER expressions are being evaluated in a state* A top lovel 
a process oegins by using the global data base as its state, it 
can switch into a local state by using the function statuprog or 
tne lunctlon thval. This local state determines what changes 
have been *aaoe to the Oota base i.e. what erasure, assertions, 
aallnltlons ol theorems have been *aae since the last time that 



the aata base was updatea. States are stored as a linear list 
of changes to the oata base- ihus there can be several 
Incompatible states of the worla simultaneously unaer 
consiaeration. however, the use of local states slows up data 
base manipulations since elements of the local state must oe 
searched linearly. 

(STATE) returns as Its value the current local state. 

lUHUATh state) will upoate the data base according to 
state. 

fTHCOKD type clauses) where clauses is of type segment 
evaluates the llrst element of each clause in turn to try to 
find one that doesn't cause a lallure or return () as a value. 
if such a clause is rouna then the renaming elements of the 
clause are evaluated in turn. 

Ithcona (t (fail))) will fail with the message 

i u 

(thcono (Wall) 3) Ct 7)) evaluates to 7 
Ithcond (() 3)) will evaluate to (J 
Uhcond (() 3) (t 4)) evaluates to 4 
Uhcond (t dail)) (t Si) Jails 
(ATTEMPT type clauses) where clauses is of type segment 
will attempt to find one whole clause which can be successfully 
evaluated. The lunction attempt Is very much like the the 
function thcono. The main difference is the lunction thcond 
will not try the remaining cluases if a failure occurs in a 



clause arter the preolcate ior the clause has ttenn evaluated. 

(attempt (t (fall)) J will lail with the message 

(> 

(attempt (Ijalli 3) (t 1)) evaluates to 7 
(attempt (() 3)) will evaluate to <> 
(attempt (() 3) (t 4) t evaluates to 4 
(attempt (t (fall)) <t b)> evaluates to b 
(TrtPROO type oeclaratlon progboay) where progbody Is of 

type segment Is like the MATCHLESS function prog except that it 

can handle the mechanism of failure* 

(RETURN expr) causes the value o] expr to be returnee. 

(TEMPROG type Declaration progboay) is llxe the function 

thprog except all assertions and erasures that are maoe within 

the scope of the function temprog must be undone when the 

function temprog is exited. The lunction temprog is useiul lor 

dealing with hypothetical. If we know that a sormula ol the 

form (CLAUSE x y) is true ano we want to establish a goal oi the 

form g then we could write* 

(THPkOG () 

(TEMPhOG (> 

(ASSERT xi 

(GOAL q.) ) 
(IcMPRQG <> 

(ASSERT yJ 
(GOAL g)J 
(ASSERT g)> 
Tne above form of alsjunction elimination is often used when y 

Is ol the form (NOT x). Goals of the lorm (CLAUbE X y> can be 

established as foiiows* 



trHHHOO () 

UcMHHOU () 

(ASSfcKT (NOT x)) 

(GOAL y)) 
(ASStKl (V () x y)) 

iilAThHROG type Declaration booy) where boay is of type 
segment is line the iunction thprog except that within the 
Junction stateprog assertions, erasures, and the ue lini tions oi 
theorems are meae in the current local state Instead of in the 
global data base. 

(THANU conjuncts) where conjunct* is oi type segment Is 
liKe the LISf iunction ana except that the function thand can 
handle the mechanism or failure, tthand conjunct/1 
conjunct/n) is equivalent to 

< thcona 

(conjunct/1 



(thcond 

(conjunct/nJ 
(t (fail)))) 
(t (fail))) 

ITHOR aisjuncts) where alsjuncts is oi type segment Is 
lilce the LISH iunction or. (thor alsjunct/l ... aisjunct72) is 
equivalent to Ithcond (aisjunct/1 ) ... (Disjunct/*) (t (lail))) 

(THNOT x) is an abbreviation for (thcona (x dail)) ft 
t)). Thus (thnot ()) is t, Ithnot t) is (), ana Ithnot (fail)) 
is t. The iunction thnot is due to T. Hlnograo. 



b.^.2.1 Failure Primitives 

tUNlQUb) will lail ii the current goal is not unique 
a»nong all the goals that are currently active, 

<)-AIL> causes a simple failure to be reported above. 
HLANNEk will reconsider the last decision that it maue. if 
there are any alternatives, it will chose one ana continue 
execution. 

(HAIL point) causes a lailure to point, hor example if 
point is -theorem" then the function fail will cause the current 
theorem to lail. Ii point is "goal" then it will cause the 
current goal to fall* 

it-AIL point message) acts exactly like <fail point) 
except that once it has lailea back to the point then It 
converts to a failure with a message which can be caught only by 
the functions failure? or falling? which are expiainao below. 

IHAILURE? expr f ail-clauses) where fail-clauses Is 01 
type segment evaluates expr. If the evaluation ooes not produce 
a failure then the value of the function w iailureV" is the value 
of expr. if the message 01 the failure matches the iirst 
element of a clause then the rest of the elements of the clause 
are evaluated. Otherwise the failure continues to propagate 
upward* 

Uailure? (fail) 

CO hello)J will evaluate to hello 



(hAILING? fall-clauses) where fail-clauses Is oj type 
segment will act as thti null operation unless a failure bacxs 
up to it. Ita lallure backs up to It then it acts llxe Lhe 
function MaHure?", 

ithprog () 

trailing? CO (return aJ)> 
(fall)) evaluates to a 
(hAlL-10 tag} causes failure to a tag whicn must 
previously have been passed over, bxecution resumes with the 
statement after the tag. 

tthprog (a) 

(assign fr-a 3> 
there 

(thcomi 

(Us 4 S4a> 
(return $$a))> 
(assign &-a 4) 
(fall-to there}) evaluates to A 

(HAIL-FAST tag) causes a failure to tog which previously 

must have been passed over ana then the generation of a simple 
failure. 

(thprog (a) 

(failing? (() (return *$a)> 
where 

(assign ***a b) 

(fail-past whareJJ evaluates to a 

(5JCChkL)lMJ? aeclaration booy> where body is 01 type 
segment will act as the null statement unless the renaming 
compuatlon succeeus. In case of success tne aeclaration is 
activatea ana the boay is executea. 



b*2.2.2 hinalize primitives 

(MNALlZb-TO tag) causes all actions that have oeen 
Laican since tag was passea over to be linallzea so that if the 
compilation iater lails they wi li not be unoone* Mnalization is 
mainly used to save storage. The next statement to be executeo 
is tne one immediately after the call to the function finalize- 
to. 

(FINALISE point) causes all actions that have been taken 
since point was passed to be finalizeo. t-or example IrlNALUfc 
goal) will finalize all actions that have been taken since the 
last goal. 

5.2.3 rtepltition Primitives 






VTHHOR type declaration 

( (INITIAL initial) 

(PROVED pattern olo-properties new-properties) 
(TEST test test-action) 
(FINAL Jinal-actlon) 
(STEP step) 

(LIST element condition)) 
body 
where body is ol type segment is the Jor statement ol PLANNED. 

hor each assertion in the oata base that matches pattern with 

old-prop** rt ies, Lhe statement is given new-properties and an 

attempt is raaoe to execute the body* **or example the lolloping 

statement will place all the bricks on brickl in the blue box* 
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brlcx.1 )>) 



Uh lor 

(UbrlckJ x)> 

((proved (on-top-of $-x 

. IpicK-up ssx> 

4place-in C* (blue box)))) 

{PcHSISf type declaration 
((INITIAL initial) 
(TE&l test test-action) 
(Lib! item conuition) 
(STEP step) 
(rlNAL Unal)) 
booyJ 
where bob/ Is of type segment is equivalent to the followingi 

U'hPBOU type (aeclaratlon (<xpr> (COLLECTED ())) 
<1 declare COLLECTED to be an s- 

oxpression ana initialize it to nil) 

(hAlLJNoV (() final (RcTUhN 

SSCOLLECTED))) 

body 

ITnCOND (test teat-action (P.ETUKN 

S5C0LLECTED))) 

ITHCOHD 

t condition 

U If the condition is met then 

aJa item to the eno of COLLECTED) 

(AS.S10N HCOLUCTfcU (<SS 
COLLECTED* item)))) 

step 

(FAIL) t| generate a simple failure)) 

"Are all the blocks in box! green?" will translate to 

(persist (((bloc*) b)) 

((final (return t))) 

(goal (in s-b ooxl)) ll lind a block in 

box I) 

Unconb 

((goal (green s&d)) (i if the 
Dlocx Is green then continue with the loop)) 

(t 
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\ lai 1 persist) ( io:ncrwise 
ganerace a lallure out oj the persist loop)))) 

U-lNii 

< BtTntfaN lower upper 5UCCE£D) 

aeciaration 
itttdi 

booy) 

will fina oetween lower ana upper Items according to the body. 

Ine junction fina ooes not consider possible interactions 

bdLwuen the elutfients sought. The fina primitive Junction is 

equivalent to the following* 



(PbRSIST (declaration UHX) (NUMbtflu))) 

CUES1 (ASSIGN? SSNUM&fck upper)) (l il 
we have louna at least upper items then we are done) 

(LIST item) (t we will maka a list 03 
tne items that we fina) 

(STEP (ASSIGN JiNUMBtrt U SSNUUBtH l>)) 
ll alter each pass through the loop v we will ado one to NUMBtKJ 

CFINAL UrtiuNU ((ASSIGN? (LESS lowerJ 
SSNUMbcK) (FAIL)))) (i as our Unal action we will test to sea 
that we have collected at least lower items If not then generati 
a simple failure)) 

body) 

"Una three boxes that contain green blocks. " 
will translate to* 



(lino 3 (((box) x) ((block) b)) &$x 
(goal (oox $-x) ) 
(goal (contains &&x £-b)) 
(goal (green SSb))) 



5.2.4 Co-routine Primitives 
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In more complicated situations, we Una Uwt it i* 
convenient to be able to have more than one HLANNbtf process* 

tTriCKcATh x) will create a HLANNfcH process which wiJi 
Ddgln evaluation with the junction call x. The value of the 
tunction tncreate is the name 01 the created PLANNtH process* 

ITriRbSUME process expression) will resume execution 01 
process iroai the point tnat control last lejt it. The value of 
expression Is naae the value ol the call to "thresuoe" that last 
causeu control to leave process. 

(TriPASSON process expression) will resume (see above) 
tna process ana then cause the calling process to ale. 

ICOFAIL process message) will generate a failure with a 
message within process at the last point that execution left the 
process. 









tbAHAUbT type declaration 
((INITIAL initial) 
OtST test test-action) 
(ACTION action) 
(LIST item conaition) 

(STfcf step) 
(FINAL sinai )J 
boay) 
where body is ol type segment will attempt to execute body once 

lor each time that action is successfully evaluatea. dvery time 

that the body it executeo the function exhaust will sena a 

simple lailure to the action to see if It has any alternatives. 

An "uxhaust" loop The function is very much iiite a "persist 1- 

loop which is uefineu above* Both Jcinos loops are driven by the 



idilure raecrumism. The twain aiirerence Is that the effects of 
executing iha boay ot a "persist" loop are not preserved oucause 
a failure Jiust propagate through the body beiore it can be 
executed again. In an "exhaust" loop a separate process Is 
created tor the action so that the enects oa executing the Dooy 
can be preserved* The lunction exhbust Is equivalent to the 
following expression- 

trHPHOu type 
( 

lUprJ- (COLLtCTbU < ))) 
( tproc) 

(CUKHENT 1CURRENT)) 

(ACTION-PROCESS (TrtCKEATb (AC1 lON-hUICTION 

ssCUkfitNT)))) 

ti declare COLLbCTbD to be a s-expression initialized to 
(J( CURRbNT to be Initializeo to the name of the current 
process, ACTION-PhOCfcSS to be initialized to the name oj a new 
process which begins exaction with the call UCTION-HUrtCTluN 
SSCUIiftcNl i which will pass the name 03 the current process to 
the created process) 

tTHCQND 

C i IS EXHAUSTED UNWtSUrtc SSACTlON-PflOCESS )) 
tl start the PLANNeh process 56AC1 lON-PROCbSS in 
wnich the action will be executed! if the current process is 
resumed with the value EXHAUSIbU than go to the tag EXHAUSTED* 
the latter will happen only if the action lails before 
successfully evaluating even onceJ 

(go EXHAUSTED))) 
CONTINUE 

(TrtCONU (test test-action (RfcTURN SSCOLUCTEU)) > li if 
the test is met then execute the test-action) 
body 
(TriCOM) 

(conaition 

(ASSIGN SiCOLLbCTED <<SS COLLECTED item)))) (i 
ii the condition is met then aoo the item to the end 03 the list 
oi collected items) 

il the expression (COhAIL $*ACTION-PRW;ESS>> will suspend 
execution oi the current process ana will begin failing iroro the 
point within the action process where execution last left oji) 
(TrICONU 

((IS tXhAUSTbb ICOKAIL $5ACTI0N-PKUCESS>) 
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,„.„ c.Li.KM.L-1. i£ Jt tne currant process is resumed with the 
value bXhAUalkb then go the location tAHAUbTHu' 

100 tXnAUSTb"[))J 
bAHAUSTEU 

final 

(ficTukh COLLLtCT£D>) 

The lollowing function is.aetinea so tnat we can start ott the 
evaluation of the action process. 

(define ACnOh-ruNCTION 

(THUHBDA ((tproc> MAIN)) 

U-AILIKG? ((?) ITHHA5&0N &SMAIH bXHAUSTEO) ) ) 

nMMM UuftS" ^ h ? "tion finally is exhausted resume the 
process MMAIH with the value tXHAUbTbD and xiil the action 
process) 

action 

(TrtRbSU4fc 4SMA1N SUCCfcSSJ 

(I resume the main process with the value SUCCtSS) )) 

Suppose that we have a way to generate the elements oj a set w. 
For each element of w, we want to aeauce consequences irom the 
tact that it has property q. lhan we want to try to show that w 
has the property q. 
Ithprog () 

(exhaust (((set) x)) 

((action (goal (subset s-x w)))J 
(assert (q s$x)> 
(goal (q w) )}' 
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5«J Clauses In HLANhtrt 



rte would like to explore the potentialities for using 
PLANNBU to control a resolution basea aeauctive system. Since 
the quastlon whether or not a given formula Is a theorem or not 
is unaecioaOle, a complete proof procedure using resolution ior 

the lirst oroer quantif icational calculus must in general 
produce a large number 01 extraneous clauses. The result on the 
necessary Inefficiency of a complete proox procedure snoulo be 
sharpento up* New theoretical tools must be developeo in order 
to make any substantial advance on the problem, 7he importance 
of resolution as a problem solving technique aoes not lie In the 

fact that it appears to be the fastest Known uniform proof 
procedure for iirst order logic, tfether, resolution proviaes 
one technique for oealing with the logic of disjunction anu 
instantiation. Domain dependent procedures must provide most 
of the direction In the computation to attempt to prove a 
theorem* In oroer to do this we would need the following 
functions! 

(BtSOLVE (patl pat2J resolvent new-property-llst)} will 
result in resolving all clauses that match the pattern patl with 
all clauses that match pat2 in all possible ways to ylelo a 
clause which must match the pattern resolvent. The resolvent 
will be storea in the oata base with new-property-llst. 
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tKcSGLVcl (patl pat2) result new-property-iist ) ) will 
resolve a clause that matches the pattern pat I with one that 
matches the pattern pat*i ana assign the pattern result to the 
result. If there are no such clauses then a simple failure is 
ganerateo* li a simple failure backs up to the Junction 
resolve) then it try* again with a Different pair of clauses* 

(F0H-BE50LVENT type oeclaratiion 
((INITIAL Initial) 
(CLAUStS patl pat2) 
(FINAL jinal) 

(RESOLVENT result new-property-list) 
(LIST element conuition) 
(bTEH step)) 
Oooy) 
wnere booy Is of type segment will attempt to execute the oody 

01 the for statement once tor each result of resolving a clause 

that matches the pattern patl with a clause that matches the 

pattern pat2. 

It is possible for PLANNtR to run out of things to 

evaluate be lore it has oeaucea the null clause. A complete 

prool procedure coulo be called to try to linish ou the prooj. 

If in the course ol its operation, the complete proceoure 

generates a clause that matches the antecedent ol a theorem then 
HLANNta can be re-invoked. The complete procedure could be run 
in parallel with PLANNfcft. Thus using HLANNEK we coulo Implement 
a complete proof proceaure. The point is that implementing any 
"reasonable" uniform proof proceaure should be easy in PLANNER. 
However, we should not rely on a uniform proof procedure to 



solvti our problems lor us, 



d-4 a Simple Example 



b.4.l using a Consequent Theorem 

buppose that we xnow that (subset a o) f (subset a a), 
(subset b c), ana <all ( lambaa (ooole) (((set) > x ) ((set) *y) 
((set) *z)) (implies (ana (subset *x *y) (subset ly *z)> (suoset 
<X *£)>) are true. How can we get PLANNER to prove that 
(subset a c) holosV he woulo give the system the following 
theorems. 



given* 



(subset a b) 
(subset a d) 
(subset b c) 



(aeline backward 

(consequent (Uset) x y z)> (subset S?x $?zJ 

(unique) (* the current goal must oe unique) 
(goal (subset $?x >Vy) () (try bacxwaro (?))> 
(goal (subset $&y $?*) () (try backward)) 
(assert (subset $$x $$z) (i /)))) 

Som it we as* HLANNfcfl to evaluate (goal (subset a c)> then we 
will obtain the following protocol! 



(goal (suoset a c)) 

(proved? (subset a c) J 

Tail 

(achieve (suoset a ci) 

enter backward 

x oecomes a 

z oecomes c 
(unique) 

(goal (subset a $?y)) 

(proveu? (subset a 5?yJ> 
node l t 9 

y oecomes o 

(goal (subset o c) J 

(proveo? (subset a c>> 

fail 

(achieve (subset o c)> 

enter backward 

x becomes d 

Z becomes c 

I unique) 

(goal (subset d $?y)} 

(proved? (subset d S?y)J 

fail 

(achieve (subset d s?y)> 

enter backward 

x becomes d 

2 becomes *?y 

(unique) 

fall 
fail 

node 1,9 mote that this nooe appears above 
y oecomes b 

(goal (subset b c)) 

(proveo? (subset b c J ) 
(assert (subset a c)J 
succeea 

Alter the evaluation the aata base contains) 

(subset a b) 
(subset a a) 

(subset b c) 

(subset a c) 

in other woras the first thing that PLANNER uoes is to Iook for 

a theorem that it can activate to work on the goal. It linds 

oackward and binds x to a and z to c. Then it makes (subset a 

Wy) a subgodl with the recommendation that backward shoula be 



used first to try to achieve the subgoal. The system notices 
that y might be a, so It binas y to a. Next (subset a c) is maoe 
a subgoal with the recommendation that only backward be useo to 
try to achieve It. Thus bacxwaro is called recursively, x Is 
bouno to o f ano i is bouna to c. The subgoal (subset o S/y) is 
established causing oackwara to again be calleu recursively with 
x Douno to a and i aeterjulneo to be the same as what the old 
value oi y aver turns out to be. dot now the system finas that 
it Is in trouble because the new subgoal (suoset u s?y) is the 
same as a subgoal on which it is aireaoy worxing. So it decides 
that It was a mistake to try to prove (subset a c) in the first 
place. Thus y is bound to b instead of d. Now the system sets 
tne up the subgoal (subset b c) which is established 
immeoiately. rte use the aoove example only to show how the 
rules oi the language worx in a trivial case. 1/ we were 
seriously Interested in proving theorems in PLANhErf about the 
lattice of sets, then we woulu construct a finite lattice as a 
model ana use It to guiae us In finaing the proof. Suppose that 
M Is model for the set of hypotheses H with consequent C. Using 
constructive logic a subgoal S of the goal C woulu be rejectee 
if it could be shown that it was unsatis liable, by M. Uften 
rejections are maae on the basis ol a raoael. hor example in the 
intuitive moael oi Zermelo-^rfcenkel set theory all the 
aescenulng element chains are Unite and terminate in the null 
set. Hurthermore every set has an ordinal ran*. Thus the 



oroinals form the back bone of the set theory. The intuitive 
meaning of t* A b) where A ana b are ordinals is the 
concatenation o] A with b- Itu* intuitive meaning oj (w A bJ is 
tne concatenation oJ A with itself b timas. If two ordinals 
hd^e the same oroer type then they are equal. Thus intuitively 
we would expect that (- t + I omega) omega) is true* every well 
oevelopeo mathematical aomaln Is built arounu a complex 01 
intuitive oioaels and slsipla examples and procedures. Axiom sets 
ere constructeu to attempt to rigorously capture and aelineate 
various parts 03 the complex. One of the most important 
criteria for judging the importance 01 a theorem is the extent 
to which it sheas light on th« complex of the aomain. These 
complexes must oe mechanized, he concluae that It is unlikely 
that aeep mathematical theorems can be provea solely iron axioms 
and Definitions by a uniform proof proceaure. A uniform proof 
procedure oasea on mooel resolution aoes not proviae the means 
for mechanizing the complex of a domain. Model resolution is a 
strategy for declalng which clauses to resolve. There is a 
great oeal more to mechanizing the complex 01 a domain than 
simply pruning proof trees. Furthermore, clauses are often 
false In a moael even though they are irrelevant to the proof 
that is being sought. One way that is often useo to try to find 
a counterexample to a lalse statement about oroinals is to 
attempt to construct the counterexample irom well known 
oruinals. borne well Known ordinals are l t <i f 3 f omega, epsiion 
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naught, the least uncountable ordinal, etc. Thus in seaxing a 
counter example to the statement that there are only finitely 
many limit oroinals less than a given oruinal we neoa go no 
lurther than (* omega omega) ■ 

5*4+2 using an Anteceaent iheoreui 

buppose we give PLANNfcfi only the following theorems. 



given i 

(suoset a b) 
(subset c o) 

(define forwara-right 

(antecedent (((set) x y z)) (subset $-y $-z) 
(goal (subset svx Sfty)) 
lassert 

(suoset $sx 5$z> 

() 

(try forwaro-rlght lorwaro-leit)))) 

( de line forwaro-lef t 

(antecedent ((tset) x y z>) (subset $-x **-y) 
(goal (subset Wy $*zi) 
lassert 

(subset $*x fr$z) 

() 

(try forwarci-right forwara-lef t) > >i 

how if FLANNtK is asKea to the theorem evaluate iassert (subset 
b c) <) V), we will obtain the following protocol* 

Iassert (subset o c)> 

(uraw (subset b c)> 
enter forwara- right 
y oecomes b 
z oecomes c 

vgoal (subset $2x d)> 

iproveo? (subset iVx b)> 

x oecomes a 
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(assert (subset d c)J 

(araw (subset a c) 

enter forwaro-right 
y becomes a 

z becomes c 

(goal (subset S?x a)) 

(proved? (suoset 5?x a)) 

iall 
enter jorwara-left 
x oecomes a 
z becomes c 
(goal (subset c *?z)> 

(proveo (subset c *?2J) 
z becomes a 
(assert (subset a d)i 

(draw (subset a u)> 

enter lorwaro-rigrtt 

y becomes a 

2 becomes d 

(goal (subset S?x a)) 

(provea? (subset *?x a>) 
ft 11 

enter forwara-left 

x becomes a 

y becomes u 

(goal (subset a $?*)) 

(provea? (subset a 5?2)> 

fail 
iall 
succeea 

Alter the evaluation the data base contains! 
(suoset a b) 
(subset c a) 
(subset a o) 
(subset b c) 
(subset a c) 

Theorems in PLANNkH can be provea in much the same way 

used tor ordinary theorems, hor example suppose that we had th< 

following two theorems! 

(ueilne th4 (consequent (((set) a c)l (subset *?a SVc* 
(goal (set s?a)) 
(temprog (((objects (x taroitrary (object))) ) 

(assert (element $Sx $Sa) () ?> 

(goal (element *8X *Vc)>) 
(assert (subset $$a SSc) O ?)>)) 



The runctlon arbitrary will generate a unique symbol which has 

tne type oj its argument. On entrance to the Junction temprog 

tne laenti iler x will oe bouna to a rreshly createa syinool. lhe 

above theorem is a constructive analogue 01 

Call ( lambda Iboole) < ( (set ) ia) Uset) tcl) 
(implies 

(all (lamboa 

(boole) 
(((object) ix>> 

(implies (element ix ia) (element ix 
>c>>) 

(subset *a ic))> 

Going in the opposite Direction* we have 

(define thd-b (antuceoent 
(((setJ a b)) 
(subset a b) 
(assert t theorem (anteceaent 

(((element) x)) 

(element S?x $?a) 

(assert (element $?x S?b) () V > > > > > 

(Jefine th4-6 (anteceaent 
(UsetJ a b)) 
(subset a b) 
(assert (theorem (consequent 

(((element) x)) 

(element S?x s?b) 

(goal (element $?x $?a)))i)i 

(jefine th3 (consequent (((object) xX(set) r s)> (element S'/x 

(goal (element *?x *Vr)) 
(goal (subset s?r >?s>> 
(assert (element SSx S$s) () ?>>)) 
The above theorem is a constructive analogue for 

(all (lambua 

(boole) 

(((object; ix) ((set) is>) 



< implies 

(some < lambda 

Iboolft) 

(((set) *r)> 

(and (element <x «r) (subset *r <sJ)> 
I element ix is) )J 

rrom th3 and tnJ we can prove the jollowing theorem* 

(consequent HtseW a b c)) (subset *?a $?c> 
(goal (subset i?a $?b)} 

tgoal (subset $$b S?c>> 

(assert (subset SSa $*c> () ?>>) 

Ine above theorem Is a constructive analogue for 

(all (lambaa 

tboole) 

((tset) »a> ((set) <b) Uset) <c)J 

(Implies 

(and (subset *a ib) (subset *b »c)J 

(subset *a ic)> 

Oiton we will treat the statement or a theorem simply as an 
abbreviation for the proof oi the theorem, 

he would like to examine the previous problem irom the 
point of view oi resolution based deauctive system. The pattern 
Junction clause .will be used to match clauses. It will use the 
tact that disjunction is commutative and associative. The 
pattern function unify Mill De used as a varient 01 the pattern 
function clause in which the clauses to be unifyeo will be given 
as the first element of the Junction unify. n* will have* 

1. (clause ((tset) ia ib) ((object) ix)J 

(not (subset <a *b)) 
(not (element <x ia )) 
(element *x *b)) 

2. (clause UtseU *a sb)) 

(element (element— of -ai ff erence >a ib) «a) 
(subset »a ib>) 

3. (clause ( ( tset > ia ib)> 
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(not (element ( element- of -dif lerence ia iuj ib)) 
(subset ia io)> 

(define necessary 
(antecaoent 

((lset> a b) ((object) xJclause) 
let I clause (subset $-a S*-bJ <?>) s*-clause> 
( resolve 

($$clause 
lunily () 

((not (subset $sa s$b))) 
(not (element *?x $Sa)) 
(element S?x »b)))>)» 

The aoove theorem says that we should eliminate all positive 
Instances of the predicate subset from clauses, it is a special 
case oi theorerol which has been partially compilea. 

(define suuicient 
(drtteceaent 

(((set; a b> clause) 

let (clause (not (subset $-a *~b)J <?>> fr-ciause) 

(resolve 

( SSclause 
(unify () 

((subset $$a $$b>) 

(eleaent (element-oi-di fference $$* S$o) 

Iresolve 

(Sfrclause 
iuniiy {) 

((subset $$a S$b>) 
(not (ttlecnent 

lel«ment-of-dl jjerence $$a 55bJ 
$$o)>) ))))) 

Tne above theorem says that we should eliminate all negative 
instances of the preoicate subset from clauses. 



5.4.3 Using Resolution 



ne shall assume that the resolution routines 
adtomat ically oetect contradictory pairs 01 clauses when they 
are generated. The theorem (implies (ana (subset a D) (subset o 
cj) (suoset a c)) can be proved as follows! 

Uhprog O 

itamprog (( (set J 

(a (arbitrary (set)}) 

(b (arbitrary (set))) 

(c (arbitrary (set))))) 

(assert iv () (subset SSa $$b) () ?> 

(assert (v () (subset $$b $$c) () ?) 

(assert W (> (not (subset S$a S$c> () ?) 
(goal (resolve ( )) )) 

vassert (v (((set) <x *y >z)) 
(not (subset ix *y )) 
(not (subset »y iz)) 
(subset ix iz)))) 

Ine proof is* 

4. (clause (} 

(subset a bJ) 

5. (clause (( (set J >x>) 

(not (element *x a)) (element *x b)) by I. and 4, 

6. (clause () 

(subset b c)) 

7. (clause (((set) ix)) 

(not (element »x b)) (element ix c>) by I. ano 6. 
6. (clause () 

(not (subset a cJ)J 
S. (clause (> 

(element (element-of-oi uerence a c) a)) by G. ano 2. 

10. (clause () 

(element (element-oi-al it erence a c) b) by 8. and 3, 

11. (clause () 

(not (element (element-of-dl tf erence a c) c))) by 10. 
and 7. 

12. (clause C) 

(not (element (element-of-dlfference a c) b)) oy v. ana 
5. 

13. (clause ()) oy 12. and 10. 



o. More on fLANNcH 



6.1 HLANNtK cXAMHLhb 



6.1.1 London's brloga 

Most 01 the tine we aecloe which statements that we want 
to erase on the basis of the Justifications of the statements. 
Il we erase statement a ana statement o oepenas on statement a 
because a is part of the justification ol b f than we probably 

want to erase statement b. Sometimes a decision is maoe on the 
basis of other criteria, ror example suppose that we careiully 
remove the bottom brie* irom a column ol bricics, no shall 
suppose that each brick Is ol unit length. The statement (at 
tf-brlcfc $*-place &-helght) will be defineo to mean that orlck 
SSbrlck is at place SSpiace at a height frSheight. Suppose that 

have the following theorems i 

■ 

(at brick I here 0) 
(at brlck2 here I) 
(at brick3 here 2) 
(define lonaon-'s-briage 
(erasing 

((ibrioc) brick other-brick) ((place) place) (UntegerJ 
height)) 

(at $~brick S-place S*-height) 
ithcond 

((erase 



(at fc*-other~brick SSplace ladol 
ssheight)) ?i 1| erase the (act that tnere Is another orlck in 
the place above brick.) 

tassert 

tat $*other-brlcx SSplace 
Siheight)) (| assert that it Is where brie* used to be))))) 

Thus alter (erase (at brickl hare w)J we will have (at orlcK? 
here l>) and (at brick3 here I). The upper bricks in the tower 
have all fallen oown one level. The above example comes jrom a 
suggestion maae by S. Papert. 

6. I .2 Analogies 

6.1*2.1 Simple Analogies 

Our next example illustrates the usefulness of the 
pattern Directed aeductive system that PLANNbR uses compared 
with the quanti jicationa 1 calculus ol oroer omega. Given that 
ooject al has some relation to object a2 and that object cl has 
the same relation to object c2 t the problem is to deduce that al 
is analogous to cl, he use the predicate test-analogous within 
the theorem pair to record that we think two objects might be 
analogous ana that we would like to check it out. Suppose that 
we give HLANNfcR the following theorems* 

(insiae al a2) 

(inside cl ci) 
(a-ooject a) ) 
(a-object a2) 
(c-object cl) 
(c-object c2) 
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(ae une pair (consequent 
I 

(lobjecti a c) 

((functor (?) (?)) predicate) 
(<?> argsel argsa2 argsel argsci)) 
(analogous S?a *?c S?preoicate) 

(unique) (i the current goal must be unique) 
I thcond 

((proveu? (test-analogous s?a 5?cJ) 
(ilia and c are test-analogous then we 
are ooneJ 

(return {)■>)* 
(proved'/ <a-obJect fr?a>) 
(provea? (c-abject *?c)) 
(I fina an a-object and a c-object) 

(temporary (test-analogous ssa ssc s?preuicate)) 
( temporarily assert that a ana c are test-analogous) 

(provea? (*?preaicat* S-argsal SSa S-argse2)) 
(proved? (SSpredicate S-argscl $Sc $*-argsc2)) 

(I fino a predicate In which both a and c are 
arguments) 

tthcona 

((is (non t)) ($*argsal>) 

(goa 1 ( cor responai ng-ana logou s 
(SSargsaJ ) ($t argsel ) $$predicate))J) 

(thcono 

(<ls (non O) (S^ijijo; 

(goal (corresponoing-anaiogous 
($$argsai) (S$argsc2) $Spredicate>))) 

(i show that the other arguments are analogous) 
(assert (analogous $$a ssc Sspreaicate) ) )) 



(define chop-of f-another (consequent 
( 

((object) a b) 
(<?> aa bbJ 

((functor (?) (?)) predicate)) 
(corresponding-analogous (5?a $?aa) ($?c $?cc) 
$?predicate) 

(thcond 

((proved? (test-analogous $?a $?c 
s?preolcate)) 

(f If a and c have already been asserted 

to be test-analogous then we only have to look at the rest of 
the elements) 

(go rest))) 
(provea? (artaloyous s?a $?c S?preolcate)) 



6. 1 page 4 



rest 

(thtona 

((Is (non <)) s$aa) 

(proved? (corresponding-analogous ( $ iaa > 
(S?cc) SVpreuicate))))))) 

Thus If we ask HLANNcft to evaluate (goal (analogous al $?x 
insioe)) tnen x will be bound to cJ in accordance with the 
lollowing protocol* 



(goal (analogous al s?x inslae)) 

enter pair 

a gets the value al 

c gets the value $?x 

predicate gets the value inslae 

(unique) 

(proved? ( test-analogous al s?c inside)) 
hAIL 

(proved? ta-object al )) 

(proved? (c-object S?c>) 
node i 

c gets the value c2 
x gets the vaiue c2 

(temporary (test-analogous ai c2 Inslae)) 

(provea? (inside al a2J) 

(proved? (inside cl c2)J 

(goal (corresponding-analogous (&£> () inside)} 
enter chop- of (-another 
FAIL 

HAIL 
node It note that this node appears above 

c gets the value cl 
x gets the value cl 

(temporary (test-analogous al cl inside)) 

(proved? (inside cl c2) ) 

(goal (corresponding-analogous (a2> (c2) inside)) 
enter chop-ofr-another 
a gets the value a2 
c gets the value c2 

(proved? (test-analogous a2 c2 inside)) 

HAIL 
(proved? (analogous a2 c2)J 

enter pair 

a gets the value a2 

c gets the value c2 
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insiQe) J 



inslue)} 



(Cl> inside)) 



(unique) 

Vprovea? {test-analogous &£ cd 

t-AIL 
(proved? (a-ooject &£)) 
(proved? (c-ooject c<>)> 
(temporary (test-analogous a2 c-£ 

(proveu Unsioe al ai)> 
(proved ( insioe cl c2J> 
(goal (correspoinaing-anaiogous (al) 

enter chop-on-another 

a gets the value ai 

c gets the value cl 

(proved? (test-analogous al cl W 

succeed 

In the process of carrying out the evaluation the lolloping 

additional Facts will be established (analogous al cl inside) 

ano (analogous a2 c2 insiae). The reaaer might finu it amusing 

to try to formulate the aDove problem in the first oruer 

quantlflcatlonal calculus. 



6.1.2*2 Structural Analogies 

The process of linuing analogous proois ana methoas 
plays a wery important role in theorem proving, i-or example the 
proois of the uniqueness ol the identity element and inverses In 
semi-groups are closely relateo. The. ue lini tions are* 

(equivalent (laentity e) (equal (* a e) <* e a) a)) 

(Implies (identity e) (equivalent (Inverse bl b> (equal (* ol 
b) (» b bli e))) If e ano e' are identities, then we have (equal 



e (* b eM a-*). It al and al* are inverses of a, then we have 

(equal al c* oK a al) all* The general form o] the analogy Is 
(equal w $-string *r*i whttre S&string algebralcly simplifies to w 
ana w". In many cases analogies are found by construction. 
That is the prooiem solver looks around ior problems, that might 
be solvea with an analogous technique. In other words we will 
have a raethoo oj solution in search o: a problem that it can 
solve! how that we have found a technique ior proving that 
various kinds of elements are unique, let^s look around lor a 
similar problem to which our technique applies, fie find that 
zeros in semi-groups are deilned as iollowsi 

(equivalent (zero zl (equal (* a 2} t* z a) x)> Supposing that 
z ana z-* are zeros we llnd that (equal z (* z z') z v ). One 
major problem in the effective use of analogies in order to 
solve problems is that it is very difficult to decide when and 
at what level of detail to try for an analogy. Another problem 
is that often the analogy holas only at a quite abstract level 
and it must not be pushed too lar. Consider the following two 
algorithms* 



(define nuraber-of-atoms 
(lambda Ix) 

tcona ((is (J $$x> U) 

(tls (atomic) *sxJ I) 
(t U 

(number-oi-atoms i\ SSx)^ 
Vnumber-of-atoms I rest $$x) ) J) )) 



(Je line list-oi-atoms 
(lambda (x) 

tcono (tls l) s$x> (>> 



(Us U tonic) ssx> (5Sx>) 

(t (append 

<llst-of-atoms (I SSxJ) 
(Ust-or-eturas (rest S*x)J)J)> 



Ine lunctions number-or-atoms ana llst-oi-atoms are precisely 
analogous. In most cases two functions will not Do nearly so 
siJiiiar. Very lew or the laeas of one will be usea In the 
other. ft. bledsoe has suggested that still another example of 
analogous proofs is found in the Schwartz inequality! 



(not (greater 
(** 



(* 



(* 

2) 
(* 

( + 



(* (x I) (y 1>> 
(* (x 2) (y 2)>) 



(** (X 1) 2) 

(** (x A 2)) 

<** (y 1) 2) 

Or* (y 2) 2)>))> 



(not (greater 
(** 

1) (y 1)) 2))) 

<» 
i) 2))) 

I) 2)))>> 



(slgma 1 n (lambda (real) (((fix) i)> (** (* (x 
2) 

(sigma I n (lamuua (real) (((integer) l))(** (x 

(slgma I n (lambda (real! (((integer) D) (** (y 



(not (greater 

<** (Integral (* 1 g)) 2) 

(* 

(integral (** 1 2)) 
(integral (** g 2)) ))> 



c.1.3 Mathematical Induction 

ne can ]onnulate the principle of mathematical lnouction 
lor the Integers in the lollowlng way* 

(aef ine Induction (consequent (( ( lunctor (oooie > I i Integer) > ) 
p)> 

(all **-p) 

(temprog (((integer) (n (arbitrary (integer))) 

(goal ($$p u)> 
(assert ($$p $$n)J 
(goal ($frp ( + $$n 1 )>>> 
(assert (all $Sp)J)) 

The type (lunctor (boole) ((integer))) Is the type or a lunctlon 
which returns a boolean value and has one argument which Is a 
fixed point number. li we are given the lacts (= (+ i> u) u) and 

(clause (((integer) x y))(« (+ iy C+ *x I)) ( + (+ iy *x) D) 

then we can establish 

(all (lambda (Integer) (((integer) m)> (- (* U <n) ml.)). 

The following theorem will do induction on s-expressionsi 



(de line expr-lnauction 
(consequent 

((functor (booleX(expr) )) 

P») 
(all S-p) 

ttemprog 
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(Uexpr) (a laroitary (.atom))) 
(car (arbitrary lexpr))) 
(car (arbitrary lexpr;)))) 
Igoal (SSp $*atom>> 

lassert (s$p *$car>) 
lassert ($*p SScar)) 
(goal <**p (cons sscar wear)))) 
lassert fall **p)>)) 

fat woulo liKe to try to do without existential quantifiers, he 
can eliminate then* in favor of Skolem junctions in assertions 
ana in favor 01 PLANNER identifiers in goals. The problem 01 
finding proofs oy inouction is formally laentical to the proolem 
01 syntesizing programs out of "canned loops* 1 , The process oj 
proceuural abstraction (which is explaineo in chapter 7) has an 
analogue which is "induction abstraction 1 * (finoing proofs by 
induction from example proofs written out in full without 
induction). 

6.1 .4 Descriptions 

6.1.4.1 structural Descriptions 

HLANNEH can be usea to find objects from partial or 
schematic descriptions. The statement (perpenoicular (line 5-a 
$-b) (line S-c S-o>) will beoefineo to mean that the lines 
(line SSa 5Sb) ano (line $*c &$a) are perpenoicular. The 
wATChLkSb function (nASvAL? arg) tests to see if the identifier 
arg has <* value. The value oi Igenbraces) is (J and the value 
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01 tgenbr&ces I) Is (I/, fte shall aoopt the convention that 
(glutiu a b) means that bricks a and b are gluea together and 
<orthogonal (line a o) (line c a)) means that the lines between 
the centers or oriclcs a ana D is orthoganal to the line between 

the centers ot cricks c ano a. A three-comer Is aeJined to oe a 
group of three orlclts joined together such that two of theoi are 

diagonal to uach other. A three-corner is shown in figure I. 

In other woras the following is a description 01 a three-corner* 

(define lind- three-corner 
(consequent 

(( (brick) a b c)> 
(three-corner s?a SVb S?c) 
(goal (gluea s 2a S?b)J 
again (goal (glued £$a (et (non $$o) $?c> ) / 

(goal (orthogonal (line $&a s$b) (line *$a &$c)>> 
( thcono ( (thor 
{goal 

(glueo $$a let tnon $$b) (non $Sc)))J 
(goal (glueo s$b (non ssa))) 
(goal (gluea $$c (non Sfra) )) ) 
i jail-past again)) >)) 

Ihe aescription can be usea in the oovlous way to lind three- 
corners. The statement (stick *-a $-b) is deflneo to mean that 
$$a ana $$o are end bricks of a line ol bricks ana (between s-a 
s— b 5-c) is aejineo to mean that brick 5$b is between orlcks s$a 
and &5c. txampies of sticks are shown are shown in Tigure I. 

(define find-stick 

(consequent 

(((brick) a b) (itlx) n)) 
(stick s?a S?b $-n) 

iprovea? (orick *7a)) 
(provea? (orick Wb)) 
(goal (stick-segment £$a $$b (di f ference 




A Three-Corner; 

(cube J) 
(cube 2) 
(cube 3) 
(glued l 
(Slued 2 



2) 
3) 




Stick; 



(cube 4) 
(cube 5) 
(cube 6) 



(cube 7) 
(glued 4 5j 
(glued 5 6) 



(glued 6 7) 



OT 



Stick: 
(cube 8) 
(cube 9) 
(cube 10) 



(Slued 
(glu 



ed 9 



9) 
10) 
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(assert (stick $*a S5b 6tn)>)) 

(jdiinw rind-stlc^-segroent 
(consequent 

( (turic*J x y wXUix) n)J 
(stic*-segaient s?x *?y >-n) 
Ithcono 

( (minusp $s) 

Ithfaili) 

[{goal 

(gluea tfv *?XJ 
(goal (orthogonal (line *$x SSw) (line s*x 
*?y))> 

(thlail) )) 

((goal (glueo 4?X *Vy)> 

(thcono 

((thana 

(goal (glued 5?w s'tyl) 

(goal (ortnoganal (line 55y *5w) 

(line sw ssx))> 

Ulvjail))) 
(return ()>)) 
(goal (glued $?w SSx)> 
(goal (oetween s$x $$w S*y)J 
(goal 

(sticx-segment $$w *$y (subl $$n)J 

() 

(try lina-sticx-segment (7>)J>)> 

6*1*4.2 Constructing Examples of inscriptions 



Given a description or a structure (such as a stick) we 
woulu iixe to bdble to derive a general methoa lor building the 
structure. The problem oi oeriving such general construction 
methods from Descriptions is very di nicult. In this case we wt 
can construct a sticx 01 length n Mith ends x ana y using the 
Junctions (iJLufc racel iace2) which glues the value of face! to 
the value 01 facei; and the function new-bricx which produces a 

new brie*. 



(define MJM~StIek (consequent 

Ulbric<) x y w> ((fix) n)) 
(make-stick i*-x 5-y *-n) 

(thcono (ilessp n 3) 

(glue (bottom ssxJ (top &*y)) 
(return <)>)) 
(is &-w (new-brick)J 
Lglue (oottom SSx) (top SSwW 
(goal (make-stick $-w $-y (- S&n IJ)J)> 

0.1.4.3 descriptions or Scenes 

b. papert has suggested that theorem proving techniques 
might be applied to the problem of analyzing ^-dimensional 
projections of 3-oiraensional bricks. Theorem proving techniques 
ha^e the advantage that they can take into account very general 
Kinds o] information, in this section we will give a jormal 
definition of the problem, Aaolpno Guzman nas developea a 
program (calleo SEE) which tries to solve such problems. Many 
humans solve such problems by mentally constructing a symbolic 
3-dimensional scene which optically projects back to the given 
2-dimensional Input. , he de line a orick to be a connected open 
opaque region 01 3-space bounoed by a Unite number of planes 
such tnat if two planes intersect then they must be orthogonal. 
Furthermore, the complement of a brlcK is required to be 
connectea. Thus bricks are alloweo to have holes in them. A 
3-airaensional scene is an arrangement of bricks such that no two 
of them intersect, A ^-airoenslonal scene is a collection of 
straight lines in a plane. A 2-oimensional projection is the 





Ex**pi\ 
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optical projection or a 3-aimensional scene onto o plane. A 
statement p about 3-alwensional scenes will be said to be valla 
for b <:-aiiaensional scene r 1 1 lor all 3-dimensional scenes t 
sucn that t projects to r It Is the case that p is true lor t* A 
two Gimenslonal scene ru will be salo to be ambiguous lor a 
language 1 if It is the projection of two 3-dlmensional scenes 
tJ and t2 such that there is a sentence pU In 1 with pU true in 
ti and false in t2. There are a number of primitive predicates 
tnat should oe lncluoea in a language for scene analysis* 

(parallel x y) means that x and y are parallel. 

(coplanar x y) means that x ana y are coplanar. 

(normal planel airecteo-linesegment) means that the 
normal of pianel is in the direction oi the directeo- 
linesegment. 

(restrlcteo planel ptJ pt2 pt3) means that the normal 
to planel is restrlcteo to the angle pt I pt2 pt3. 

(same-brick regionl region2) means that regionl and 
reglon2 are part of the same brick. 

(adjacent regionl regions J means that regionl ano 
region2 are regions of the same bricfc that intersect at right 
angles. 

(element x y) means that x is an element o] y, 

tin-front-ol brick) brUk2) means that brick! is in 
front of brick2. 

(resting-on brickl brick*!)) means that brickl is resting 



6* ) page 14 



on orick^. 

(on-top-ol bricKI bricki) means that brickl is on top oi 
brick2. 

(subset x y) means that x is a subset 01 y. 

(coordinates pointl cooral ) means that pointl has 3- 
oiwensionai coorainates coordi » 

ine loliowing siatements about examplel are valla as can be seen 
by considering whore the normals ox the planes might lie and 
oeaucing consequences until contradictions are lound. 



(normal a (direction 7 13)) 

(normal (oirection 12 13)) 

(adjacent a b) 

(adjacent a c) 

(adjacent b c) 

(normal c (direction 10 13)) 

(normal d (direction 7 4)) 

(normal e (direction 2 4)) 

(adjacent d e) 

(normal t (direction 3 4>) 

(adjacent d t) 

(adjacent e i) 

(normal h (direction 16 lb)) 

(normal g (direction 15 16)) 

(adjacent g h) 



The rol lowing statement about example I satis Jiablei 
(and (restlng-on (bricX a b c) (brlcx e i d)) (resting-on 
(orick a o c) (orlck g h)) J 

lhe tallowing statements about example example are valid" 



(adjacent a c) 
(adjacent a b) 



(adjacent b c) 

(normal a (Direction 12 M)) 

(normal c (alrection 3 14)) 

(adjacent g h) 

(normal g (alrection b 6)J 

(normal h (alrection o 6)) 

(not laujdcent c a)) 

(not (aajacent b u)> 

(adjacent a e) 

(adjacent a 1) 

(aajacent a f ) 

(normal e (oirectlon 4 13)) 

(normal o (oirectlon V I3J) 

(normal f (alrection II 13)) 



The following statement about ligure^ s satisiiable* 
(ana 

(same-region c g) 

(same- region n) 
(same-orlc* a b c g h) 

The three dimensional coorainates of points are obtainea by 
using more than one camera to view the scene or using a focus 
map. In the case where we have coorainates as a primitive 
predicate, the deiinition of a projection 01 a J-almensionel 
scene must be modltiea to include the j-dimensional coorainates 
01 all the projected vertices. in the case where we have the 
tnree dimensional co-orainates of the projected vertices, we can 
deduce that two planes are part oi the same oriclc if they 
Intersect at an acute right angle. Since the object that is 
being viewed might be so far away that accurate coorainates 
cannot be obtainea, a oeauctive system should be aeveloped which 



ooes not use cooroinates. At the very minimum a faro core 
oeuuctive system tor tne analysis of 2-dimensional projections 
snouia be consistent and every valid statement flhoulo oe 
proveablu. That is every theorem or the system shoula oe 
satis liaole (there is at least one interpretation that satisfies 
the theorem). Interest in questions of satisfiability coir*es 
rrom tne tact that some interpretations are far more likely than 
others in the real world. Statements that are to be testeu jor 
satis liability must be maue as strong as possible in order to 
provide a meaning lul test- Although the linking rules are 
mathematically very elegant, in tneir present form they do not 
adequately represent the semantics of the optical projection 
rules. The value of Uuzraan's program Is that It provides 
conjectures aoout which regions are satis liable in the relation 
same-brick* however, the program suffers because it aoes not 
Jiave any explicit knowledge of optics, he would aovocate an 
approach that makes greater use ol oeduction to test the 
validity or satis liability of a sentence. Questions oj 
satisfiability ana validity of sentences with respect to any 
given projection are decidable since the theory of real closed 
fields is decidable. efficient algorithems shoula be aevelopea 
to test whether a given sentence is vaiia or satisfiable in a 
projection. 

rLANNhW woula benefit greatly from an ejiiclent parallel 
processing capaoiiity. The system would run lastur if it coula 



worfc on its goals in parallel, unite oiten a goal will rail 
after © short computation along its patn. The use 01 
parallelism would enable us to get many goals to lali so that wa 
coulo adopt luore ol a progressive deepening strategy, ne woula 
liice to carry out computations to try to reject a proposeu 
subgoal at the same time that we are trying to satis ly it* Many 
computations can be carrieo out much faster in parallel than in 
serial- For example we can oeteriaine whether a graph with n 
nodes is connectea or not in a time proportional to t* (log n) 
(log nJJ. It has been Known tor a long time that LISP 
computations using parallel evaluation of arguments are 
determinate ii the functions rplaca, rplacd, and setq are 
prohibited, ne coulo impose a similar set ol restrictions on 
PLANNER. Another approach is to introduce explicit parallelism 
into the control structure, he coulo have "it" and *)t* delimit 
parallel calls for elements ana M l< a and *>l* delimit parallel 
calls lor segements. A parallel junction call will act as a 
fork in -which one process is creatao to ao the lunction call and 
the other proceeos with normal oruer evaluation. J-or example in 
(+ II* 3 4) J I* 7 b)i we coulo compute 3*4 in parallel with 7+o. 
The copy function coulo be spea up by a lector proportional to 
the number ox processors* 



( je line copy ( lamoaa (x) 
Icono 

(Us (atomic^ S*x> 

5SX) 



pa ge Id 



(t 

(.(copy II $sx))i <copy (rest $*xJ>>)>>) 

howdver* we woulo still have problems communicating between the 
branches or the computation proceeding in parallel. Hartly this 
a problem oi sharing an lnaexeo global Jata base between 
parallel processes, he woula neea the standara locx ana unlocic 
primitives ana unlimltea use 03 assignment in order to keep the 
computations synchronised. But it we allowea the use 03 loc* 
and unlocic ana unliroitea use 03 assignment, the programs might 
become indeterminate. One of the most important properties that 

can be proved aoout a program is that it is determinate. A more 
powerful wait primitive woula raaxe synchronization easier. I 3 a 

process calls (wait preaicateJ then its execution will be 
blocked until the preaicate becomes true. 

6.1*5 Semantics of Natural Language 

Although proolems for PLANNER are typically phrasea in a 
perfectly lormal, precise, unambiguous syntax, we will usually 
not rind the semantics as well oe lined. 11 we say ( (' (yery 
happy)) John) insteaa ol "John is very happy." we will not 
thereby have made the concept ol happiness any less nebulous lor 
the machine. Nevertheless it is convenient for a problem solver 
to have such concepts although they are not rigorously deiinea. 
Problems of semantic ambiguity ana clarlficaton can require 



aroitrary amounts 01 computation in order to be aoequately 

rusolved. t-or example consiuer the loJlowing simple example 03 

how semantic amoiguities can be resolveai 

(is-sfl*aller-than hano (■* (pig pen))) 

(ue unc exampie-o]-Dar~hlllel 
(ameceoent 

(t (object) x y )) 
(in $-x s-y) 

(.the OIKS 

(lis pen ££x) 

(goal (is-smaller-than SVy (^ (pig 
pen))) J 

(assert (in (' (fountain pen)) s*y)>)))) 

Now if we assert (in pen hana), PLANNErt will conclude tnat (in 
( v (fountain pen)) hana) is true since a nana is smaller than a 
pig pen. One 01 the important Difficulties that have plagued 
most 01 the programs that have been written to answer questions 
in English is that they are trying to solva two very haro 
problems at the same time, hirst they must roaxe sense 01 
fcnglish syntax ano second they need a powerful problem solving 

capability to answer the question once they t^ye "unoerstood" 
It* Ambiguous cases should be resolved on the basis 03 
ueductlve logic ano not on the basis 03 some linking scheme such 
as "semantic menory". As it stanas PLANNfctf proviaes 
sophistlcatea mechanisms lor solving problems in tonal 
languages. A program could be written (perhaps in PLANNEK?) to 
translate cnglish into PLANNhfi theorems for problem solving. 
Conversely we coula try to translate PLANNER theorems into 
simple natural language. Surprisingly translation into natural 
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language can be very acicward becasue natural language lacks many 
01 the descriptive ana procedural primitives or FLANNhR. 



Current Problems ana i-uture o or* 



he shall call the logistic system oaseo purely on the 
primitives of PLANNEK "robot logic". Robot logic is a icinu of 
hyoria between the classical logics such as the quuntif icational 
calculus and intuitionism, ana the recursive junctions as 
representee by the lambda calculus and Post productions, 'ihe 
mouel theoretic definition ol truth in robot logic is 
complicated by the existence ol the primitive erase ana the 
whole PLAWJEN interpreter. The semantics ol PLANNfcR theorems 
are most naturally oeiineo dynamically by the properties 01 
procedure?* The semantics Qt theorems in the qu^nti licational 
calculus can be aetinea oy moaels of possible worius. In 
comparison with the quanditif icational calculus PLANNctf would 
appear to oe more power lul in the lollowing areasi 

control structure 

pattern matching 

erasure 

locai states of world 

There are interesting parallels between theorem proving 

ano algebraic manipulation. The two fielas face similar 

problems on the issues 01 simplification * equivalence of 

expressions, intermediate expression bulge, ano man-machine 

interaction. The parallel extends to the trade oii between 

aooiain dependent knowledge ano eificiency. In any particular 
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case, the theorems neea not allow PLANNfcH to lapse Into Its 
aefault conditions. It will sometimes happen that the 
heuristics for a proolem are very gooa and that the proof 
proceeos smoothly until almost the very end. Then the progam 
gets stuck ana lapses Into default conuitlons to try to push 
through the prool* On the other hana the program might grope 
for a while trying to get started ana then latch onto a theorem 
that knows how to polish on the problem In a lengthy out fool 
prool computation. PLANNER is assigned for use where one has 
great number of interrelated procedures (theorems) that might be 
of use in solving some problem along with a general plan for the 
solution of the problem. The language helps to select 
procedures to refine the plan and to sequence through those 
procedures in a flexible way in case everything doesn't go 
exactly accoroing to the plan. The fact that PLANNER is phrasea 
in the form of a language lorces us to think more systematically 
aoout the primitives neeaed for problem solving, rte ao not 
believe that computers will be able to prove deep mathematical 
theorems without the use ol a powerful control structure. Nor 
do we believe that computers can solve, di if icult problems where 
their aomaln depenaent knowledge Is limited to Unite-state 
difference tables ol connections between goals and methoos. 
Uijierence tablec can be trivially simulated by conditional 
expressions in PLANNbR. 
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bljiicult problems for PLANNER 



Ad would be grateful to any reaoer who could suggest types oj 
problems which flight be ailjicult to encompass naturally within 
tne present formalism, PLANNER is intenoed to be a good 
language lor the creation ana description 01 problem solving 
strategies- Currently it operates within the restriction 01 
generalized stack oiscipline- by relaxing this restriction we 
coula stake the language completely restartabie at the 
considerable cost in efficiency of r . having to garoago collect the 

stack. 

Memory* There is never enough fast ranaom access 

storage* 

Exploaing oeflnitions* he cannot afford to replace every 
term by Its .oexinltlon in trying to prove theorems, however, in 
the proof 01 almost every theorem it is necessary to replace 
sQiQa terms by their aefinitions. Domain depenaent methods must 
be developed to matte the decision in each case* 

Creating PLANNER theoremsi he need to determine when it 
is desireaole to cons up PLANNER theorems as opposed to 
Dynamically Uniting them together at run time. At the present 
we have only a aew examples of nontrivlal constructed theorems, 
fte can generate some from the functional abstraction of 
protocols ana lrom attempts to construct schematic proojs 01 
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theorems. Others are generated as the answers to simple 
problems. ror example 1 1 we ask the computer how It woula put 
all the small green and yellow bricks in the red box, then It 
might answer* 

ithfor (((face) racel face^) ((brick) brick)) 

((provaa (small-brick s-brick))) 
tprovea? (face s-facel s&bricic)) 
tprovea? (color $£ face l green)) 
(proved? (face Wace2 $5brlck)> 
(proved? (color $s lace2 yellow) 
(pick-up S$brick) 
(carry-to (above (* (reu box)))) 

iarop)) 

T. riinograd has Developed a program to translate fcnglish into 
PLANNER theorems. An interesting expreriment that could be 
attempted would be to modify a chess porgram so that It would 
return a PLANNED program as well as the symbolic description 03 
a position* The loea is that the PLANNER program would 
represent the plan of action that would be taken in case 01 the 
various moves that the opponent might take. ft. Henneraan has 
investigated some 01 the possibilites jor doing planning in king 
and pawn end games. The problem seems to be very difficult nut 
not impossible given the present state of the art. 

Manipulation 01 PLANNfck thaoremsi PLANNbR provides a 
flexible computational base for manipulating theorems that can 
bd put in disjunctive normal form, fte need to deepen our 
unuerstanaing so that we can carry out similar manipulations on 
PLANhbK theorems with the same facility. 



Progressive aeepeningi ne neea to make more use 01 tne 
style of reasoning in which we construct a plan lor the solution 
01 a problem irotn necessary conoitlons that the solution must 
have, attempt to execute the plan, find out why It doesn't work, 
anu then try again. The style is orten used in chess where very 
ouch the same game tree Is gone over several timesi each time 
with a deeper unoerstanaing of what lactors are relevant to the 
solution. 

uarbage collection of assertions* Statements which have 
ueen assertea should go away automatically when they can no 
longer oe of use. Un lortunately, oecause oj some logical 
problems and becuause 01 the retrieval system oi pLANNgS, we 
have diaficulty in achieving completely automatic garbage 
collection. The erase primitive of the language provides one 
way to get rlo of unwanted statements. If the assarted 
statement appears in the local state of some process instead of 
in the global data base then it will disappear automatically. 

Simultaneous goals* he oiten find that we need to 
satisfy several goals simultaneously, ne usually try to 
accomplish this by choosing one ol the goals to try to achieve 
first, however t when working on the goal, wa shoulo Keep in 
mind the other constraints that the goal must satisfy. One 
solution is to pass the goal to be workea on as a list whose 
first element is the goal ano whose succeeding elements are the 
other goeis which must be simultaneously satisfieo. 



f.oaconstructive prooisi The most natural way to ao a 
prool oy contraaicton in HLANNtH is to try to calculate in 
auvance the statement which ultimately wiil produce the 
contraaiction. Ihe methou is to Una a statement S such that S 
Is provable and (not S) is provable. More precisely, we compute 
a statement S t make b a goal t ana then make (not SJ a goal. 
Another type 01 problem that H-ANNtk will not solve very 
naturally is given a predicate p. defined in the first order 
predicate calculus to show nonconstructively that there id some 
object x such that (p x) is true. 



7. MoaeJs oi Procedures and the Teaching 01 Procedures 



7.1 Mouels of Procedures 



7*1.1 Moaels ol hxpressions» Intentions in LHIEMJER 

A problem salver neeas to have some way to rtnow the 
properties of the procedures which it uses to solve problems. 
It can use the knowledge which it has as a partial mouel of 

itself. In order to be able to mooel itself, it needs' 

1 1 a way to express properties of its procedures. 

2i A way to establish that the properties do in jact 
hold lor its procedures, 

he shall express the properties oi an expression x by 
the following function. 

(INTENT predecessor x function successors) is true la 

predecessor evaluates to true, the lunction applied to the valu* 
oj x is true, and the successors ail evaluate to true. The 
value oi the function intent is the value oj x. The function 
intent is used to state a model for an expression x. As might tii 
expected tne models are stateu in PLANNEK. The intentions are 
established by INTfcNDEft which is the language in which 
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Intentions are stateo. The prool is by induction on the 
activations of the procedure. Thus for the control structure 03 
L15P, the prool is by recursion Induction* To avoia confusion 
we shall write the intention varialbles In upper case. Also we 

shall use !( and )i &s meta-braces for ( and ) respectively, 
J-or example the intentions in the prog below are all true* 

(prog iiixJ (Cdix) (a I) (b 2))) 
(intent (goal <-* I $$a)» 

(; Yes the identifier a was inueed Initialized to I 1 
nlll wonoers never cease?) 

(intent (goal (« $$b li# S$a )>!)}) 
(intent 

(goal (» SSb 2)> 
(assign $ib (+ $$0 I>> 
(thlambda (X) (ooal (« $5X 3))) 
(goal £« sso 3)J) 
(l rte have Just verified that an assignment statement 
can change the value oj the identifier b from 2 to 3) 
(return $$b>) 

The essential idea for intentions comes from the breatc junction 
of LISP introduced by h, Martin. The expression (INTENTION 
pattern exp) will be used to express the fact that the pattern 
must match the value ol exp. An intention is not allowed to 
assign a value to a non-intention identifier and ordinary code 
is not alloweo co reierence intention identiilers. rte shall 
distinguish intention identifiers jrom ordinary identifiers by 

putting them in all caps- The intention (INTEND declaration 

predecessor expression function successors) is exactly like the 
Junction intent except that intention variables can be declared 
in the declaration- In addition we need a function (OVERALL 
declaration predecessor expression Junction successors) whicn is 



exactly like the function "Intend" except that it is useo to 
state the overall Intention or a procedure. All the intention; 
In the function lact are true where 



(do line fact (lambda (iix> (((fix) n)> 
Coverall () 

(goal (not ( lessp SSn 0))) 
(intent 

(assert (not (lessp SSn u)>) 
(prog (fix; (UUx) (temp II (1 SSn))) 
(intent (goal (= sstemp I))) 
(Intent (goal (•= SSi IJ>J 
again 

(overall () 

(goal (= sstemp Kiactorlal s;i)l); 
(intent 

(assert (■ sstemp (jactorial ssi))> 
(cono 

((is SSI.) 

(intent (thcond 

((goal (= ssn 01) 
(90al I- SStemp |))J 

((goal (not (- SSn 0))> 
(goal ( = sstemp !l* ssn 
Kiactorlal |(- ssn I)!>!>1))))) 

(intent (goal ■; - sstemp Kiactorlal 
SSn)J»i 

(return sstemp))) 

(intent (goal (■ sstemp ((factorial SSI)!))) 

(assign sitemp t* sstemp SSI > J 

(assign SH (- SSI 1 )) 

(go again>) 

(thlambda (X) 

(goal (* SSX K factorial $sn>i)>) 

(thlambda (X) (assert (= SSX. K factorial SSn)! ))) ) 

(define factorial ( lamooa (]lx) (((fix) n)) 
(overall (> 

(goal (not (lessp SSn 0))} 

(intent 

(assert (not (lessp ssn u))J 
(cono 

((is l) ssn) I) 

(t (* (factorial (- ssn I)) SSn)>) 
(thlambda (X) 
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Itemprog t) 

(assart (■ ssn UJ) 

(goal (= ssX l))> 
Uemprog () 

(assert (not ( = ssn 0))J 

(goal (= SSX !U SSn !Uact !(- ssn 

(goal (- SSX Klact SSn)!))) 
(thlaraboa (X) 

(assert (theorem (antecedent <) 

(= SSn 0) 

(assert (= SSX !)))» 
(assert (theorem (antecedent () 
(not (= $$n 0)) 

(assert (- ssX J(* ssn !(jact J(- SSn 
DDUI))))) 

iassert (= SSX Hfact SSn)l)))> 

The intentions jor the function fact v aenneO below are 
not so easy to establish. 



(deaine fact-* (lanfcda Uix) (((fix) n)) 
(overall I((Iix> (AHU SSn)) 

(goal (not (lessp s*n 0))) 
(intend (((fix) (AHG SSn)) 

(assert (not (lessp SSn 0))) 
(prog (jix) (((iix) (temp I))) 

(intent (goal (■ SStemp 1)}) 

(t test to see if the identi Jier temp was really 
intiallzeO to l) 

again 

(overall () 

(goal (■ SStemp 1 (combinations Ssarg 



ssn)!))) 
SSn)!))) 



(intent 

(assert (■ SStemp ! (combinations ssarg 

(cona 

((is u 5*n) 

(intent (= SStemp !((actorlal 5SAKGJ!)} 

(return SStemp) ) > 
(intent (greaterp SSn 0)> 

(assign Si temp (* Sstemp ssn)> 
(assign S>n (- SSn 1>) 
(go again)) 



(thlambda (X) (goal i- S5X !(factorlal $$AhO)1)}) 
(thlaraboci (X) Ussert <= ssx .(tectorial ssaho) i ) )) ))) 

<define combinations ltix> ((tiix) n)((iix> r)J 
(overall () 

(t ha na 

(goal (not (lessp SSn o))> 
(goal (not (lessp $Sr U))> 
(goal (lessp $$r $$n))> 
(intent 
(thana 

(assert (not (lessp SSn l)))> 
(assert (not (lessp $$r 0))J 
(assert (lessp $$r $$n))) 
(cono 

((is ssn SSr> 1) 

(t t* Sfin (combinations (- SSn 1) ssr))> 
(tn lambda (X) 

(thcond 

((goal (= SSr U)> 

(goal (« SSX I (factorial ssn)!)>)))> 
(thlaraboa (X) 
(thcond 

((goal (- $sr U)> 

(assert (» SSA .(tectorial ssn)!)))))) 
fte can.de line the aata types oj LISP and write 
intentions for the LISP primitives. The type "xpr" is the type 
^expression. 

(deline xpr (type () (vel () (atomic) <(?) <xpr>)))> 

The type "•pllst* is that 01 property list. A property list is a 
list 01 odd length such that the even numoered elements &re 
atomic. 

(define piist (type () ((?> <star (atomic) (?>>>) 

he can write the intentions for car as follows* 

(dejine car (lainboa (((xpr) x)) 

(i the Junction car has one argument which is of type (xpr)) 

(overall ((OLD-X ssx)) 

(goal (not ((atom s$x)>) 

(car &$x) 

(thlambda (V) (thprog (hs) 

(assert (eq SSOLU-X $5x)>)>)) 



(uellne car (lambua (xpr) (((xpr) x)) 
(overall UOLD-X SSxJ) 

(goal (not !(atom S5x)!)> 

iedr ssx> 

(thlambda CY) 

(assert (eq SSOLb-X SSxJ))))) 

The function "identity" which is used below is the Identity 
function. 

(deiine cons < lautbaa (xpr> (((?> x) ((xpr) y)l 
(overall UOLD-X Six) (OLO-Y SSy)) 
t 

(cons ssx s$y> 
(tnlambda <Z) 

(thprog ((t (no*>)> 

(assert (theorem (consequent (u w) 

(not (descendant $SZ (time $?w 
S2u))> 

(goal (before ssu SSO))> 
(assert (eq SSOLD-X $$x>> 
(assert (eq SSOLU-Y S$y>) 

(assert (eq !(car SSZ>! $Sx)> 
(assert (eq Hear S6Z>! SSy)) 

(assert (not Katom $$Z)!)>>))) 
Allowing side effects consioerably complicates the 
process of proving intentions, ne shall proceed by borrowing a 
trick from the the Greenolat-Nelson LISP compiler, nith each 
computed expression we will associate the time at which it was 
computed. The actor (TIME e tl will match an expression e that 

* 

was computed at time t. The current time will be the value oj 
the the function (NOW). The function (NfcXT t) will evaluate to 
the next time aater t. The statement (descendant x y) wii be 
true only if x can be obtained from a car-cdr chain lrom y. ^or 
example (aescendent (car (car x)) x) is true. 



(aefine get (lambda (((atomic) p) ((atomic) ind)) 
lovarall UULU-f SSp) (OLD— IhU SSinu)) 
t 

(get S5p SSind) 
(thlambda (Z) 

(assert (eq SSOLD-P SSp)) 
(assert (eq SSOLD-Ihu SSind)))))) 

(j-Jiine put (lamboa (((atomic) p) ((atomic) inci) ((?> value)) 
(overall ((OLD-IM) SSlna) (OLL-VALUh SSvalue)) 
t 

(put ssp S&ind Ssvalue) 
(thlambda (X) 

(assert (eq SSX SSp)) 
(assert (eq S5ULD-IND SSind)) 
(assert (eq SSOLU-VALUt SSvalue)) 
(assert (theorem (antecedent (1) 
(not (■ 5?l SSino)) 
(assert (eq "(get SSp SSI)! ! (get SSp 



SSind)! ))).)) 



(assert (theorem (consequent (1) 

(eq !(get SSp S?i)! Kget SSp SSino)!) 

(goal (■ ssl sslnd)))>) 
(assert (eq Ssvalue Kget .SSp SslndC ! ) ) )) )) 



Using the above intentions, we can prove the lolloping 

inl cut Inn 



intention. 

(overall <Y) 

t 
(get 



(put SSp SSinal SSvalue) 
SSinu2) 



(thlambda (X) 

(thcona 

((goal (■ ssinal ssinu2)> 

(doal (eq SSX SSvalue))) 

((goal (not (= ssind7 ssind2))) 

(goal (eq SSX Kget SSp ssind2) 1)))))) 

(define rpiacd (lambda (((xpr) x) (U) y)) 
(overall ((OLu-X SSx) (OLD-Y SSy) (1 (now))) 
(goal (not KatOB SSx)!)) 
(rpiacd SSx SSy) 
(thlambda (Z) 

(assert (oq SSZ SSx)) 
(assert (eq SSOLU-Y SSy)) 

(assert (theorem (consequent (ft) 

(eq (time s?n SST) (time s?« (next 
SSf)>) 



(goal (not (oescenaent $$x (tide b$rt 
$*r>))>>» (assert (eq !(car $*OLi>-X)i Hear $*x>!)> 

(assert (theorem (antecedent (ii> 

(not (descenoent $Sx (time s?a $*])>>) 
(assert (eq (tine $$* ss'W (time $$rt 
(next ssT»»))> 

(assert (eq Hear S*x)! s$y)J))>) 

(deUne rplaca (lambda (((xpr) x) ((?> y)) 
(overall ((oLO-X SSx) (UD-Y Siy) (T (now))) 
(goal (not llatom s$x)!)> 
(rplaca SSx $$y) 
(tnlambda (Z) 

(assart (eq $$Z $Sx)) 
(assert (eq $S0LIW s$y)> 
(assert (theorem (consequent (ft) 

(eq (time $2ft S$T> (time sVrt (next 
$$T))) 

(goal (not (oescenaent $Sx (time $$ft 
$$r)J>))» (assert (eq Hear S&OLD-X)! Hear $$x)!>) 

(assert (theorem ( antecedent (ft) 

(not (descenoent $$x (time *?R $$T))J) 

(assert (eq (time S$n $$T) (time $$H 
(next 55l)))J)» 

(assert (eq !(cdr $S0L0-A)1 Mcor 55x)!)) 
(assort (eq Hear SSx)! $$yU)J)> 

7.1.i Moaels in Fatternsi Aims 

Aims are like intentions except that they are actors ana 
occur in patterns. 

(AIM preoecessor pattern down up successors) Is the form 
for a call to the actor aim. An aim will oe said to be attained 
when the following conditions are satisfied* 

(1) Its predecessor evaluates to true 

(2) he apply the function aown with two arguments. The 
first is the expression to be matched. The second is I) ii and 
only if pattern aoesn v t match. 

(3) he apply the Junction up with two arguments. The 
first is <) if ana only if the rest of the pattern doesn't 



match, lne secona Is C) if ana only if pattern fails- 

<4) The successors evaluate to true. 
Ifttf lunction down expresses the intent of the downward action of 
the pattern ana the junction up expresses the upward going 
action. The actor (AIMING oeclaration predecessor pattern aown 
up successors) is exactly like the actor "aim" except that 
Intention variables may oe declarea. For example the aim in the 
folowing expression is attalneu* 



(aiming ((OLIM- SSI)) 
t 

(tnlaabda (X Y) 

(assert (eq 5$f SSX)J 
(assert (* SSY I))) 
UhlaroDda (X Y) 
(thcond 

{(goal (- SSX <)) 

(assert (eq SSf SSOLD-M) 

(assert (= *$Y ())>) 

((goal (= SSX t)) 

(assert (eq SS i $$X>) 

(assert (= $$Y t)>)>)) 

The value 03 : changes only if the rest of the match succeeds. 
The actor (ENTlHb declaration predecessor pattern down up 
successors) is exactly like the actor "aiming" except that it is 
used to express the entire intent of the pattern. For example 
for the actor "atomic" which takes no arguments and matches only 
atoms can oe characterized by* 



( ju line atomic (kappa ( ) 

ientiru t) 
t 
(atonic) 

(tn lambda (X ¥) 
(thcona 

(Igoal .(atom S$A>! i) 
{assert (» $*Y t))) 
((goal (not !Utom $SX>!>) 
(assert (= **Y ( )))))) 
(tnlambda (U) 

assert ( a S&X *$m>) 



7.1.3 Mooels ol HLAKNtH Theorems 

fie shall construct mooels for PLANNER theorems In much 
the same manner as lor MATCHLLSb patterns. 

(TrilNTkNl predecessor x aown up successors) is true if 

tno lollowing conoltions are met* 

(1) the predecessor is true. 

(2) he apply the lunctlon aown with two arguments* The 
first argument Is ( ) if ana only if the evaluation ol x fails. 
If the Jirst argument is not () then the value ol the second 
argument is the value oi x. 

(3) he apply the [unction up with lour arguments* The 
first is () If ana only If the rest of the canputation lalis. 
If the llrst argument is () then the second argument Is the 
message of the aailure. The third argument Is () if and only If 
tne evaluation of x lails. If the third argument is not <) then 
the fourth argument is the value oi X. 

The function TnlNTEWD is exactly like the lunctlon 



"thlntent" except thut d aeclaratlon of intention variables must 
be tne Urst argument- t-or example the folliwng intention Is 
always satisfied* recall that tne Junction "assert!" will 
assert a statement ii has not alreaoy been provea. 



(thin tuna ( (alreaoy-provea I J J) 
t 

(assertl (subset a d)> 
(thlambda (X Y) 
(thconu 

((goal (proved (subset a l-jJ; 
(assert (« $$X ( ))) 
(assign S*alreaay-proved t) 
(assert (= $SY (J))) 

((goal (not (proved (subset a b)))) 
(assert (provea (subset a bJ)> 
(assert (= SSX t)> 
(assert (= S&Y (subset a o))}>)) 
(thlambda (II U V) 
( thcona 

({Is () ssalready-proved) 
(thcono 

((goal <« $SX ()> 
lerase (provea (subset a 
b))))))} 

(assert (= $$u SsX)) 
(assert (= S5V $$X)))> 



he would like to show that If we reverse a list twice 
tnen we get the original list. 



(define reverse (lambda (1) 
(overall (> 
t 

(intent 
t 

(prog (<V> (u SSI) (v ())) 
again 

(overall (> 

(goal (* $5v I ( re verse ! (sub $$1 
&5v>Ul))> 
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"vj!)!)JJ 



(intent 

(assert £= s&v Mreverse Msuo ssl 

(cono 



His O ssu; 

(return ssvi)> 
{assign s»v {(I sSu> SSvJ) 
(assign S»u (rest SSu)> 
(go again/) 
(tn lambda <X) 

(goal (= ssx Krev SS1)|>) 
(goal < = ssl '(reverse SSXJMJ) 
(thlamoaa (X) 

(assert (- SSX Krev SS1/DJ 
(assert ( = SSl Mreverse $SX)!>)>>)> 

(Oellne sud (lainboa (x y) 
(overall () 

t 

(intent 

t 

(cono 

((is Sax SSyJ 

. O) 
(t 

(tl SSx> <sub (rest SSx>> SSy))>)> 

(thlambda (2) 

(thcond 

((goal (= SSy ())} 
(goal (- ssi ssx)>))>J 
(thlambda (I) 

( thcond 

((goal (■ SSy ())) 
(assert (■ SSZ ssx)})})) 

(define rev ( larabaa (1) 
(overall (J 
t 

(intent 
t 
(cono 

((atom ssl) 

ssu 

(t 

(<rev (rest ssl>> (I ssl>>j> 
(thlambda (X) 

(goal (- SSX Mreverse ssl>!)> 
(goal (= ssl Mreverse SiX>!)>) 
(thla.nbaa (X) 

(assert (euql SiX Mreverse s$l>i)> 



UssurL <* SSI ilreverse S&X> 1 J J) J J ) 



7.2 Teaching Procedures 



Crucial to our understanding of the phenomenon oi 
teaching is the teaching 01 procedures* Understanaing the 
teaching 01 proceoures Is crucial oacause 01 the central role 
played by the structrual analysis oi procedures in the 
iounoatlons oi problem solving, how can procedures such as 
multiplication, algebraic simplification, ana verbal analogy 
proolera solving be taught ef liciently? Once these proceoures 
have been taught, how can most eiiective use oi them be made to 
Leach other proceouresV In addition to being incorporated 
, directly as a black box* a procedure which has already been 

taught can be useo as a mooel ior teaching other procedures with 
an analogous structure. One ol the most important methods oj 
teaching procedures is telling. For example one can be told the 
algorithm for aoing symbolic integration. Telling should done 
in a high level goal-orientea language. PLANNER goes a certain 
Distance toward raising the level of the language in which we 
can express a procedure to a computer. The language has 
primitives which implement fundamental problem solving 

aoiiities. Teaching procedures is intimately tied to what 

superiicially appears to be the special case of teaching 
proceuures which write procedures. The process of teaching a 
proceaure should not be coniused with the process of trying to 



get the one being taught to guess what some DlacK dox procedure 
really does (as is the case In in sequence extrapolation lor 
example), ihe teacher is auty bouna to teli anytnlng that 
might help the one being taught to understand the properties and 
structure 01 the procedure* ha assume that the teacher has a 
gooa model ol how the student thinks- Aiso v just because we 
speak of "teaching* 1 , we do not thereby assume tnat anything iilte 
wnat classically has been called learning is taking place in the 
student* However, this does not exclude the possiblity that the 
easiest way to teach many proceoures is through examples. He 
can give protocols 01 the action 01 the procedure for various 
inputs ana enviroments. By "variabiizatlon" (the introduction 
01 identifiers for the constants 01 the examples) the protocols 
can be formeu into a tree. Then a recursive procedure can be 
generatea oy identifying indistlngulsnabie noaes on the tree. 
he cell the above procedure for constructing procedures irom 
examples the procedural abstraction 01 protocols. Procedural 
abstraction can be used to teach oneseli a procedure. 7*2*2 by 
Hroceaural Abstraction 

7*2*2*4 Examples of Procedural Abstraction 

7.2.2.4.) duilding a nail 



he shall explain procedural abstraction in more detail 
using the example 01 building a wall. We deiine (brick-at s-w 
s-h) to mean that there is a brick at the location with width 
SSw ana height ssh and define the statement (wall 5-w S-h) to 
mean that there is a wall of wiath SSw and height s$h using the 
definition (conjunction (((fix) w)> w initial u step 1 until 1 = 
$Sww s$w)(con Junction (<(fix> hh)) hh initial ssh step -I until 
(■0 $shh) (brlck-at SSww SShh))). Ihus (wall 1 2) means (and 
(and (brick-at 2) (brick-at J)(brlck-at (J 0)) (and (bricx-at 
1 2) (brlck-at 1 II (brick-at I 0)). Notice that the syntactic 
definition of a wall runs orthogonal to the way in which a wall 
has to be constructed. Thus wo could not use purely syntax 
directed methods to construct walls. 



(define build— tower 
(consequent 

'(((lixJ w h) (<?> (actions ()))> 
(brick-at s?w S?h) 
(thcono 

((not (hasval? SSh)) 
(assign SSh 0) 

(go rest)) 
((= ssh) 
. (go rest))) 
(assign (s-actions) (goal (brick-at S?w (- SSh 



I)))) 



rest 



(thcond ((proved2 (brick-at S?w $?h» 

(return (J))) 
(goal (put-brick-at $?w S?h)) 

(goal (check-brick-at SSw SSh)) 

(assert (brick-at SSw SSh)) 

(return (SSactions ! (put-brlck-at SSw SSh)!)))) 

If we give PLANNEK the task of constructing a (wall 1 2), then 
the actions that will db taken are* 
(put-brlck-at 0) 



\ 



(put-brick-at 1> 
(put-brick-at u 2) 

Ii the goal is (wall 2 I) then the actions are* 
(put-brick-at 0> 
(put-brick-at U 
(put-brick-at I 0) 
(put-brick-at I I) 



He shall use the expression new b to mean that a new identi Jier 
is bound and Initialized to 5- ne shall use the expression ($S 
9) to mean a reference to an identifier whose value is 9i the 
expression ($« 3 7> means that an iaenti Jier with value 3 Is 
assigned the value 7. More precisely, the protocol lor (wall I 
2> is 



(new (I 2J 

(new (NO-VALUE N0-VALUE3 
(assign ($« NO-VALUE 0> U) 
hALSEi (= (SS 0> (SS I» 
SO 

(assign (Si NO-VALOE 0> 0) 
^ALSEi (= <$S 0) (SS 2)) 
SO 

(put-brick-at (SS 0> (SS ())J 

(assign (si l> (* (SS U) l)> 
HALSE* (« (SS U US 2>> 
SO 

(put-brick-at (SS 0} (SS Mi 
(assign (Si I 2) (* (SS 1> 1 >) 
TftuEi (* (SS Z) (SS 2)i 
SO 

(assign (Si i> (+ (SS 0) 1 )) 
TRUEi (= (SS l> (SS 1>> 
SO 
. () 

The protocol for (wall 2 I) is 
(new 12 tJ 

(new INO-VALUh Nu-VALUcl 
(assign (S» NO-VALUE 0) 0> 
rALSEi (= (SS 0> (65 2) > 



50 

{assign (si no-value oJ o) HALSfci (= Us oJ (ss i)j 



50 



U 1>J 



(put-brick-at (SS U> (ss 0)) 
(assign ts» I J ( + (SS l)> I JJ 
THU£i (- (SS U (SS l>) 
SO 

(assign (si l> (+ (SS U) I JJ 

t-ALSti t- (ss ^} (ss 2JJ 
so 

(assign (si l 0) 0) 
FALSHi (= (SS 0) 1> 
SO 

(put-brick-at (ss I J (ss 0}) 
(assign (Si l> (+ ( SS 0> 1 )J 

IRUEi (- (SS I) (SS i>; 
SO 

(assign (Si I 2) (+ (ss 



TfiUEi (= (SS 2) (SS 2)) 
SO U 



Tne protocol for (wall 2 2) is 
(new C2 U 

(naw [NO-VALUE NO-VALUE} 

(assign (si NO-VALUE 0} o) 

J-ALSE* (- (SS 0) (SS 2)> 

SO 

(assign (Si NO-VALUE OJ 0> 

FALSEi (= (SS OJ (SS 2JJ 

SO 

(put-brick-at (SS 0) (SS OJJ 

(assign (Si l> U (SS 0) U) 

rALSEi <■= (SS IJ (SS 2)) 

SO 

(put-brick-at (SS 0) (SS 1 )) 

(assign (si 1 2) (♦ (SS IJ I )> 

THUEi ( = (SS 2) (SS 2>) 

SO 

(assign (Si iJ (♦ (SS 0) I)) 

i-ALSEi {= (SS IJ (SS 2)) 

SO 

(assign (si 2 i>J Oj 

FALSEi (» (SS 0) (SS 2JJ 

SO 

(put-brick-at I 0) 

(assign (Si I J (+ ( SS 01 |.» 

FAlShi (- (SS l> (5S 2JJ 

SO 

(put-brick-at (ss iJ (ss I JJ 
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(assign (si I 2) (+ (55 I) \)> 
(assign (si I <L> (* i 55 l> UJ 
IKOCi (* lS5 i> US 2)> 

C) 

by introaucing iaenti tiers dor the constants the protocols can 
be arranged in a tree as tollowsi 

new Iw hJ 

new I ww=WO-VALUt£; hh=Ni>-wALUfcl 

(assign 5*ww 0> 

ii (= SSww sswj 

tnen 

O 

else (assign SJhh U) if t= SShh SSh> 
then 

(assign siww {* SSww ^)) 
if 1= SSww SSwJ 

then 

() 
else 

(assign sthn u> 

if (= SShh o> 
then 

(assign Siww (+ SSww 11) 
if (■ SSww SSwJ 
then 

() 

else... 

else... 
els* 

{put-bricK-at SSww SShhJ/ 
(assign sihh i+ sshn IJ> 
if (- SShh sshJ 
then 

(assign Siww i* SSww lJ> 
II (« SSww i> 
then 
() 
else 

(assign s*hh 0> 

if (= SShh SSn> 

then 

(put-briclt-at SSww SShh) 
(assign &ihh (+ SShh 1 }> 
if (» SShh SSh) 
then 

(assign stww l- 
SSww l)i 



it (■ SSww $&w) 
than () 
else.,. 
else*.* 
else.. . 
else 

(assign 5*hh t+ $$hh I )> 
11 <= S5hh S$h) 
then 

(assign &<ww (+ ssww })) 
if (■ S&ww $sw> 
then (> 
else... 
else... 



he define the protocol of an evaluation to be a list oj 
the events ana the places in the program where they nappen that 
occur when the evaluation is being carriea out. oy examining 
the protocols 03 the system as it tries to build a wall we fina 
that it always uses the same procedure. 01 course it will not 
always be the case that the protocols irom the solutions of the 
instances of a goal con be combined into a procedure. The basic 
idea is to combine the set of protocols Into a tree and then 
consider any two nodes of the tree which cannot be distinguished 
on the basis 01 the protocols to be identical. In other words 
it is necessary to compute a minimal or almost minimal 
homoniorphic image of the set of available protocols. 
Unfortunately it is often aiificult to extract tne information 
needea to do procedural abstraction (rora the protocols produced 
Oy PLANNhfi tneoreins as they solve problems. The procedure that 
the theorem is in fact using can be expressed as follows* 



(deunu coupile-buiia Uamoda C(Ulx) wJ ({fix/ hJ> 

(overall () 
tthano 

(goal (greaterp SSw u)> 

(goal (greaterp SSw 1>))J 
(intent 



<thanu 
(prog 

column 



height 



(assort (greaterp $s>w ())) 
(assert (greaterp $*w U) >> 

(It lixJ ww hh)> 
(assign $*ww U> 
(goal (- SSww l»J 

ioverall () 

(goal (wall SSww SSh)) 
Untent 

(assert (wall SSww S$n) > 
(cona 

((» SSww S$w> 

(intent (wall SSw SShl) 

(return ()>)> 
{assign sthh U) 
(intent (goal (= sshh 0))) 



(overall {) 

(thano 



(intent 

(thano 



(goal (wall SSww SSh)> 
(goal (column SSww sshh) ))) 



(assert (wall SSww $Sh)> 
(assert (column SSww SShh))>> 

(cona 

((• SShh SSh) 
(assign S* ww (+ SSww I )) 
(go column)))) 
(intent (goal (support-for SSww $$hh))) 
(put-brick-at Ssww sshh) 
(intent (goal (brick-at SSww SShh))) 
(assign Sihh 1+ SShh 1 )) 
(go heigjit)) 
(thlambda (X) 

igoai (wall SSw SSh))) 
(thlambaa (X) 

(assert (wall SSw $$h)>>>) 

(de line check-wall 
(consequent 
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IW w h' h) 
fwdll 5?W' s'/h') 
(tticona 

( (thor 

(goal (- S2h- 0)) 
(goal (■ $?** u>))) 
(lis H+ 5?h l>! S&h'i 

(goal (wall s?w^ $Sh))> 

{goal (column $?*' s?'))) 
(Us 1(* s?w |}J ssw) 

(goal (wall $?w ssh'))) 
(goal (column sVw' s?h'))) 
(t 

(Mil theorem))))) 

(define choc it- column 
(consequent 
(w h h'> 

(colunm S?w s?^) 
(thcond 

((goal (= $?h' 0))) 
((is !(* $?h 1)1 SSh'J 

{goal (column $?w $?hW) 
(t 

(fail theorem))) )) 

( de f i ne che clc-su ppor t 
(consequent 
(w h) 

(support-for S?w $?h) 
(thcona 

((goal (= S?h 0))) 

((goal (column SSww sshh))) 
(t (tail theorem))))) 

(define put-brick-at 
(thlamoda (w h) 
(overall () 

(goal (support-for $$* $$h)> 
Iput-brick-at ssw $sh) 
(assert (brick-at SSw SSh)>))) 

The tunction compile-buila has been simplifies, by transjorinlng 

the recursive Junction that correspond to the tags column and 

height into loops. The structure of the abstracted proceoure 

must at least reflect the structure of the PLAKNfcK theorems irom 



which It hds bean abstracted. Thus the abstraction of a ror- 
provea loop will generate a recursive equation which might be 
slmpliiieo to a loop, borne of the recursion in abstractea 
Junctions is primarily generated by the structure of the uatu of 
the problem. If we consiaer the tags column ana heignt to 
uejine functions, then the proof Is essentially by recursion 
induction, in the above proceuure 5Sw is tne wioth o] the wall 
to oe built, $5ww is a running index over the width, 58h Is the 
height, una sshh is a running inoex over the height. Using tne 
intentions In the above procedure as subgoals we can easily see 

tnat the procedure does ouild walls. Notice that we can use the 
protocols oi the proceuure <in a process that we call "protocol 

rejection"} to reject lalse subgoals in much the same way that 
Gelernter used diagrams in his geometry theorem prover. For 
example we might evaluate (compile-build 1 2>, (compile-bulld 2 
l>, and (corapile-bulld 3 2) remembering the protocols of the 
evaluations. Thus when considering the case where the 
intention 

(intent 

(or 

(Is SSww U) 

(wall (subl SswwJ s*hh>-J) 

is evaluated imneaietely after (go column) is evaluatea, it will 
be the case that lis SSww 0> is false ana so cannot possibly be 
a provable subgoal even though it implies the intention. The 



subgoal will be to prove (implies (not (is SSw l))J {wail Isuol 
SSww/ sshn)). or course using protocols for tne purpose 01 
rujecting false subgoals Ooes not help us to eliminate those 
that are true but unprovable. 

1.4.Z.A.2 reversing a List at All Levels 

Consider the following protocols for a procedure ri 



(new UJ 

TtfUEi Us (atonic) (SS a>> 
SO Us a) 

thus (r e> is a 



(new l(n)J 

l-ALSbi (is (atomic; 155 <n))> 
50 
( 

<new I (rest (SS (n) )>J 
TRUE* (is (atomic) (SS (>)) 

SO (SS ())> 
(new [(I (ss (n)))J 
TRUE* (is (atomic) (SS n>) 
SO (ss n))) 

thus (r (n>) is (n) 



(new ((a b)l 

hALSEi (is (atomic) (SS (a b))) 
SO 
( 

<new Urest (SS (a b)))J 
HALSe* (is (atomic) tsS (b) >) 
SO 
{ 

<(new ((rest (S5 (o)))l 
THUEt (is (atomic) (ss ()>) 
SO ISS ())> 



■ 



(new Ul Us (b)))J 
TRUE* (is (atomic) Us b)> 
SO US d)))> 
(new [(I US (a b)))J 
'iHUEi lis (atomic) Us a>)> 

SO (55 U>>) 



thus (r (a b); is (D 



■ 



II (is (atomic) SSx2) 
then SSx2 
else 

<new 1x3 (rest 55x2)) 
if (is (atomic) SSxj) 

then ssx3 

eise...> 
(new 1x4 (I SSx2)J 
il (is (atomic) S$x4J 

then SSx4 



*■ 



■ 









(new [ ((a)) J 

t-ALSbi (is (atomic* (55 ((a)))) 
50 

<Uisw ((rest (SS ((a))))) 
TKUE* (is (atonic) Us ()» 

SO ()> 
(new Ml US ((a))))J 
HALSti (is (atonic) (55 (a))) 

SO 

<(new Urest (55 (al))J 
•ThUE* (is (atomic) (55 ())) 
SO ())> 
(new [(] (sS (a)))) 
IRUbi (is (atomic) (SS a)) 
SO (55 a))))) 

thus (r <(a))> Is ((a)) 

He obtain the following protocol tree" 

(new (xl) 

11 (Is (atomic) SSxl) 

then SSxl 

else 

<new [x2 (rest SSxl)) 






< 
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else...))> 

<n«w lxl> (1 SSxUJ 
II (Is (atomic) S$x?) 
than $&xb 
else 
( 

<naw Lx6 (rest $$xd>1 
if (is (atomic) ssxo) 
then ssxo 
else...> 
(new 1x7 (1 SSxbJ] 
il (is (atomic) S$x7> 
then $Sx7 
else...) )) 

ay ioenti tying lnuistinguishable noaes we obtain* 



■■ 



(define super-reverse (lambda (x) 

(conu 

((is (atomic) Six) SSx) 

(t (<super-reverse (rest ssx)> (super-reverse (I 
SSX.))j))j) 

Consider the iollowing set oi protocolsi 
7.2. .2*4.3 ^inaing the Description of a Stick 



Suppose that we have the iollowing data basei 
(block a) 
(block o) 

* 

(glueo a b) 

The above oata base ropresents a stick on the the basis 
of the iollowing protocoli 



(goal (stick a &)> 

tnftw NO-VALUt NO-VALUE NO-VALUtJ (l we have three new 
iaentiiiers that qo not have values) 

consequent! (stick (S? NO-VALUE a> {$? NO-VALUt bJ) 

tncong 



i 






(provea? (glued U? a) («? b))> 



Figure 1, 




(block a) 
(block b) 
(glued a b) 



Figure 2. 




(block a) 
(block b) 
(block c) 
(glued a b) 
(glued b c) 
(between a b c) 



Figure 3. 



(block a) 
(block b) 
(Mock c) 
(glued a b) 
(glued be) 



/- 


C 


Q 


L ■ 



(not (between a b c)) 



(return t} 

i*ow suppose that the data base Is* 
(block a) 
(block o) 
(block c) 
Igluea a D) 
(gluea o c) 

(between 6 b c> 

tta obtain the following protocoli 

(goal tfitick a c); 

[new NO- VALUE NO-VALUE NO- VALUE] 
consequenti (stick Is? a) ($? c>J 
thcona 

(provea? (glued (5? a) ($? c)>> 

(all 
(proved (block ($? a))) 
(goal (glued US a> <&- NO-VALUE b))> 
(proved? (between ( S5 a> (S5 b) (5? c)J) 
(goal (stick (55 b) Us c))> 

(new NO-VALUE NO-VALUE NO-VALUE) 

consequent* (stick (S? b) <*? cJ> 

thcond 

(proved (olueo U? bJ (5? cH) 
(return tJ 

By variabalization we obtain the following protocol treei 

(goal (stick u v)> 
[new x y 2 J 

consequents (stick S?x $?z) 
(tncona 

((goal (glued S?x $?z)J 

(return t))) 
(proved? (block $?x)J 
(goal (glued $$x $*-y)) 
(proved? (between $Sx $$y $?z)) 
(goal (stick $Sy $$2)> 

[new x I y I zl J 

consequent! (stick $?xl S?zl ) 

(thcona 

((goal (glued $?xl $?zl)J 
(return t>)> 

(proved? (block S?xl)J 

(goal (gluea $sx[ ^— y I > > 

(proveo? (between >sxl $$yl $?zlW 

(goal (stick s$yl $Szl >> 
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by laenti lying lnaistinguishable nodes we obtain the 
roliowing consequent theorem which is the description 03 a 
stick. 



(define stick-description (consequent 
(x y 2) 

(sticfc 5?x S?2) 
( thconu 

((goal (glued s?x &?*)> 
(return t))> 
(proved? (block S?xW 
(goal (glued &Sx s*-y)> 
(proved? (between Six S$y s?z)) 
(goal (stick SSy 5$z) >)) 

7.2.2.4.4 binding the hibonocci Numbers iteratlvely 

Sometimes it is possible to improve tne efficiency of a 

procedure by proceaural abstraction, for example consider the 

protocols ol the schema f oefinea oelow. 

(define f (lambda ( JixJ (((fix) n)) 

(cond (jix> (<or (P n> (P (S n}» 0) 

(t (A (3 (5 n}> (1 (S IS ni)i))>ii 

He shall used the abbreviation that (f~U x) is x and (*~n+l x> 
is (l ( l"n x)> where f is a function. Thus (f*2 x) is (f is 
xJJ. The protocol for the above schema 1 ■ • 

ii (or (P (S-0 n>> (P (S*1 n)>> 
then 
else 
(A 

ii (or (P (S*l n)> (P (5*2 n)>) 
then 
else 
(A 

i* (or (P (S**2 n)> (P <s*3 ntii 
then 
else . .. 



ii (or (h IS"J n)J <p tb--i n)n 
then u 
else... J 
11 (or IF (S~2 n)> (H (b-3 nJ)))> 
then 
else 
(A 

U (or (H (S**j nJJ (h (b*M ni)i 
then u 
else... 
1J tor <P (S-4 n)J (h tb-b n>)> 
then o 
else...}) 

by proceaural abstraction we can ootain a Junction fl 
which Is equivalent to l. The function is obtainea by 
lJentliying some of the nodes that are not on the same branch or 
the protocol tree. The type (fix) below is the type 03 llxed 
point numbers, lhe type (loc (fix>) is the type oi where the 
location of a lixea point number can be stored. 

(deiine (1 (laraooa (fix) <((iix) n)) 
(pr09 ((Hoc (llxJ) mj) 
(12 n a)>>) 

(define 12 (lambda (fix) (n ((loc (fix)) m>> 
(cono 

(tor (P n) (P (s n)) 

, „. ** in this special cose smash the location m to 

contain 0) 

(assign (smash SSmJ 0)) 

(t 

(prog (fix) (((loc (fix)> 1>) 

(assign (smash $$m) (f2 &5n SSlJXi set 
the contents ol m to be (12 SSn $$D) 

(i the value of tl Is the function A 
appliea to the contents of m ana the contents of 1) 

(A 

(in SSmJ 

(in $S1)»)>)> 

Another approach is to use some of the theory oi recursive 



scnemas. The function i aefinea above is schemoti cally 
equivalent to the function fidefinea below 



(deline ff (larcoaa (fix) UdixJ n» 

(tor (fix) (Uiix) (x OJ <y o>>)) 

((test IP S&n> (return $*x>) 
(step (assign $m (5 ssnJJ) 
(assign EU«X $<yJ! UlA SSx SSy) SSxJlJ 

(;the previous statement is just a tricky way to 
simultaneously accomplish (assign Six (A SSx £Sy>) anu (assign 
S*y Mx))))) 

Note tnat (fib n> the nth ribonacci nuuioer can be aefinea as 
follows 



(Jeiine fib (lamboa (fix) (((fix) n)) 
(cono (flxJ 

((or (is I Sin; (is 2 %%\\i) M 
(t (* (fib {- ssn 1> (- SSn 2)))))) 



using the interpretation that is I, (P x) tests to see 11 x is 
l f ana A is add, we see that the Junction fib can be rewritten 
Iteratively. 

The process of proceoural abstraction is very much like 
a generalized lorm of compilation. The relationship between the 
compiled version and the interpretao version can be very subtle. 
Jn classical compilers the relationship is much more 
straightforward. Every time that the interpreter for the 
language changes the compiler must change. In fact the 
interpreter and compiler are two mooes ol what is essentially 
one programt an interpreter-compiler. In compile mode it would 
actually produce the compiled code for the source cooei in 



r ■* 



interpret moae it would take the actions corresponding to the 
compiled code that woulo be produced In compile mode* The 
interpreter-compiler can be written in MATCHLfeSb so that in 
cottpilu moue the MATCHLESS skeletons have as value the compiled 
coot*. One problem with interpreter-compilers is that they 
suifer from the inefficiency of double interpretation. Insteao 
oj directly interpeting the expressions, in interpret moae the 
interpeter-corapiler interprets the skeletons that would produce 
the coca In compile roooe. The proolem can be solved by 
compiling the interpreter-compiler for interpret mode, tte would 
like to try to extend this idea to PLANNbR in a more nontrlvial 
way so that goals would be created to produce the compiled coae. 

7.2.2.4.5 .Defining a Uata Type 

he can do procedural abstraction ol protocols along the 
same lines for actors. For example if we obtain the following 
actor protocol 



tilt 

CO J 

Uatomic)) 
((if 

(O) 

((atomic*) 

(til 

It)) 
((atomic))) 

<if 

£())>> 
<il 



CO) 

(UtomicJ) 
llif 

an 

((atomic)} 
((if 

U») 
<lf 

<()J 

((atoiDic))>J))n 

men Dy identifying euivalent noues we ootain the actor expr 
wnere 

(define expr (kappa (} 
(if 

(()> 

( (atomic)) 

(( I expr > <expr>)> >) ) 

Uoodstein has many inouctive prooas ol the the 

properties of recursive programs. John McCarthy was one of the 

first to popularize the use of recursion induction "3or proving 

the properties ol programs. The easiest way to do recursion 

induction is to proviue at least one preoicate lor each 

recursive equation* Robert rloya has proposed that predicates 

in the lirst order quantlf icational calculus be attached to the 

edges o* flow charts in order to provide subgoals for proofs o] 

properties of programs. In general we would prefer to proceed 

more constructively ano to write intentions in PLANNER rather 

than in a loroi of the quanti ficational calculus, t-inding an 

intuitlonistic proof 01 a sentence in first order logic is the 

same problem as finding a recursive iunction that realize the 

tne formula, bince the logistic system of PLANNER is ^ery 



con5tructive f a proof of a PLAINER theorem entails being able to 
write the procedures which compute the values that Identifiers 
in goals take on as a result of the goal being established, 
intentions are a lirst step toward constructing models ol the 
environment in which a process executes. He need to aavelop 
good ways to increase the expressive power of intentions. 
Currently the model ol the computation must be expressed by 
intentions within the process being executed which makes it 
difficult to get a global view of the moael of the execution 01 
the process. The application of intentions in which we are most 
Interested Is their use to provide subgoals to enable us to 
oeduce PLANNER theorems with loops in them* he shall say that 
an intention i characterizes a function f ii whenever (: x) 
converges then (equal (1 xJ y) if and only if (1 x y) is true. 
A long time ago John McCarthy and others proposed that the 
debugging problem be solved by proving that the procedure is 
correct once and for all. Using induction McCarthy and his 
students have proved that certain compilers are correct. The 
most important practical difficulty to the realization ol the 
proposal is that for many functions f written in higher level 
languages it seems that a.11 the intentions that characterize f 
are at least as long as J because the only way to tell whether 
the value ol <f x> is correct or not is to do an equivalent 
computation all over again. A good example of such a function 
is eval in LISP. The function eval is an extreme example ol a 



function that has no simple Declarative input ouput 
characterization. A real challenge in automatic program 
writing is to develop a symbolic inetegration routine from the 
criteria that the derivative of the answer must be equivalent to 
the input. One approach toward constructing such a routine 
woula be to make use of some results oj Rlsch on what must be 
the form 01 the integrand as a function ol the form ol the 
integrano* in the case ol the factorial function there are two 
oovious ways to compute the function* using recursion or using 
a loop. In other cases it is not so obvious how to find a 
sufliciently different equivalent program, he stell say that an 
intention 1 is implied by a function l if whenever (f x> 

converges than If (equal (f x) y) f then U x y) is true* 
Implied intentions are useful when we are only interested in 
some property of the Junction ana don't care to try to 
characterize it completely, hor example we might not care 
-whether a function that determines how to stack cubes always 
puts red cubes on the bottom of the tower that it is trying to 
build. Or we might be interested in proving that a scheduler 
for a time sharing system passes some test lor fairness in its 
distribution of time to users. Another potential use jor 
implied intentions Is to provide subgoals to prove that a given 
function that uses lock and unlock and unlimited use of 
assignment in parallel computations is indeed determinate* 



7.<i.3 Teaching Procedures by Deducing the Bodies ol Canneo 
Loops 

Ir the type 01 control structure is known a priori, then 
the rest ol the junction can often be deauced. Otten the 
control structure neeaea is a very commonly used loop such as 
the "(or 11 loop in MATCHLESS, recursion on the tree structure ol 
llsts t or one of the loops in PLANNER such as "try", "fina", or 
■act", tte shall call loops such as the above "canned - loops 
since we will oaten pull them out ana use them whole when we are 
in need of a control structure for a routine. The approach 01 
using canned loops is the one used by Kleene for constructive 
realization functions for intui tionistic logic* Suppose that we 
Know the following theorem about the predicate (RhvERSEP x y) 
which means that y is the reverse of x, For example (reversep aa 
aa) ana (reversep ( I 2 (3 4)) <<3 4) 2 I)) are true. He shall 
use 1< ana >] as meta angle brackets lor < ana > respectivly. 
As before J( and )! are the meta braces for ( and )* 



(deiine th69 (consequent 
(a b c) 

(reversep 5?a $?b) 
ttncond 

((hasvai? a> 
ithcona 

({goal (atom $$a>> 

ti il a is an atom then b should be 
equal to a) 

(goal (= 5$a $?b>>) 

(t 

(goal (not (atom SSaJ)> 



(goal (reversep ! (rest s*u) i $-0)/ 

l| otherwise let c be the m verse oi the 

rest 01 a) 

Igoai (* (Uidontity S*c>! Ml i$d>!) 

$?o)>)}) 

(t (geniall))))) 

he would lllce to fine a junction reverse such that (reversep x 

(reverse x)i Is always true* The theorem above suggests that we 

try to use linear inouction on lists as the control structure* 

The schema ior linear induction applied to the junction reverse 



tdeiine reverse (lambda <x) 
!(cona 

(Katom SSx>J 
(temprog (Y) 

(assert (atom $%*)) 
(goal (reversep $$x s-VJJ 

t| find a Y which is the reverse oi the 
atom "SSx" and return it as value) 

$SY>) 
(t 

(temprog (Y) 

(assert (not (atom $*x))> 
(assert (reversep 

Hrest »$x)l 

•(reverse !(rest $$x}!)l)) 

(goal (reversep $*x $-Y)> 

SSY)>))J 

The above expression evaluates to the following definition* 



(ue line reverse ( lambda (x) 
(cono 

((atom 55x> $$x) 

(t (<identlty (reverse (rest «x>)> (1 S$x>))>)) 
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7.2.4. Comparison or the Methods 

Thare is not much to be sala about teaching procuuures 
by telling- It Is not always cluar whether the procecura should 
be taught from the top aown or the primitives should be taught 
first. However, the basics of the method are simple and 
oirect. Unfortunately the teacher will not always know the 
code for the procedure which Is to be taught. He might be 
engageo In wishiul thinking hoping to lind a procedure with 
certain properties. The method ol canned loops Is often 
applicable to such cases. Trying to use the method ol canned 
loops has the problem that the control structure must oe 
supposed. Often it 15 very difficult to guess the kind of 
control structure which will prove appropriate. Also the method 
of canned loops works on the problem In the abstract as opposea 
to specific examples where the identifiers are bound to actual 
values. The advantage of the abstract approach is that if it 
succeeas then the procedure will be known by its construction to 
have certain properties. On the other hand it is olten easier 
to see what to do on concrete cases. The approach of procedural 
abstraction is to combine together several concrete cases into 
one supposed general procedure. Properties ol the general 
procedure must then be established by separate argument. If the 
protocols of the examples are produceo t>y a goal-oriented 
language such as PLANNER, then there will be points along the 



protocols where certain predicates are known to o© true. ihe 
predicates express the fact that some goal was established as 
true at that point, Uften it is possible to show oy 
mathematical induction that the corresponding properties in tho 
aostracted procedure are always true when the procedure passes 
through the points- In this way a problem solver can have a 
partial model of his problem solving procedures. The moaels can 
be expressed naturally in PLANNEH. Also the method 03 
procedural abstraction has the advantage that the control 
structure does not have to be supposed in advance. Often a 
problem solver will have the basic problem solving ability to 
solve any one of a certain class of problems, lut he will not 
know that ho has the capability, nriting a procedure which can 

be shown to solve the class enables the problem solver to 
bootstrap on his previous work. Procedural abstraction itseli 

is lurther evioence for the Principle ol Procedural tmbedaing. 
To implement the principle as a research program requires a high 
level goal-oriented formalism, PLANNER and some embellishments 
that we have made to the language are first steps toward 
realizing the Principle of Procedural Embedding, 
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